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1 . Introduction 



Think back to the first time you sat down at your Amiga. You 
probably experienced the following reactions: excitement, astonish- 
ment, surprise and confusion — probably in that order. Yes, the Amiga 
really is a super personal computer. But there's so much you can do 
with an Amiga that you often don't know where to begin. How should 
you begin to apply the Amiga to your tastes? How do you make the 
most of the Amiga's many capabilities? 

If you are new to the Amiga, you probably have dozens of questions by 
now. To start you off, Chapter Two of this book describes work with 
the Command Line Interface (CLI). 

Part of this book explains methods and programming techniques for 
getting the most out of Microsoft's AmigaBASIC, with special empha- 
sis on using existing system modules from the software supplied with 
your Amiga. You'll find handy AmigaBASIC program routines in this 
book that let you use the various fonts and type styles, use 
rubberbanding, create borderless windows, and even a disk monitor for 
exploring the machine language code of the disk drive. 

Chapter Five describes the handling of AmigaDOS. It shows how to 
use the commands in the CLI, and how these commands can be useful 
to you. 

Other subjects covered in Amiga Tricks and Tips include the handling 
and changing of the Workbench. This includes manipulation and editing 
of icons for your own purposes. 
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2. The CLI 



CLI stands for Command Line Interface. This user interface is con- 
trolled from the keyboard. Neither the icons nor the mouse can be used 
in the CLI. The CLI included in Workbench Version 1.2 recognizes 
about SO commands. 

The CLI works closely with AmigaDOS, the disk operating system. 
Many special CLI commands make working with diskettes faster and 
more convenient than performing the same functions from the 
Workbench screen. Some disk commands must be called from the CLI, 
since they cannot be directly accessed by Intuition, intuition is 
the part of the Amiga's operating system that acts as an interface 
between the user and the window-and-mouse technique of handling 
diskettes, programs and files. 

You usually access CLI from intuition. However, you can also 
call CLI commands from BASIC and C programs. 
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2.1 CLI questions and 
answers 



Many new Amiga users ask questions about the CLI. Below are 20 of 
the most often asked CLI questions, and their answers. 

Question 1: How do I get into the CLI? 

Answer The CLI is contained on every Workbench diskette. Here's how you can 

access it 

a) Accessing CLI with Intuition (the usual method): 

• Boot your system with the Workbench diskette in the drive. 
You'll see the deep blue Workbench screen displayed. 

• Click the Workbench disk icon. This opens a window named 
Workbench, which contains a number of icons. 

Click the System drawer. This opens a window called 
System, again filled with a number of other icons. We are 
interested in an icon named CLI, which either displays 1> 
(Version 1.1), or an icon of a little window with 1> displayed in 
it (Version 1.2). 

If you don't see a CLI icon, then the CLI gadget in the 
Preferences program is switched to Off. Click on the 
Preferences icon in the Workbench window. When the 
Preferences screen appears, click the On gadget next to the 
word CLI. Save the result by clicking Save. Now close and 
reopen the System window. A CLI icon should appear this 
time. 

Click on the CLI icon. This opens a window named New 
CLI. You can enlarge or reduce the size of this window, but 
you can't close it, since there is no close gadget You now have 
your own CLI. 

b) Accessing CLI through AmigaDOS: 

AmigaDOS has a command called execute which executes 
CLI commands in a batch file. 
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• You can also access AmigaDOS through the system libraries, 
which is how AmigaB ASIC and the C programming language 
communicate with die CLI. 

c) Interrupting the booting process (the easiest method of calling 
the CLI): 

Boot your system as usual. When the Kickstart diskette (Amiga 
1000) or Kickstart in ROM (Amiga 500 and 2000) has success- 
fully loaded, the icon of a hand holding a Workbench diskette 
appears on the screen. 

• Insert the Workbench diskette in the drive. The hand disappears 
and the system boots up. 

• As soon as the AmigaDOS window (the blue screen) appears, 
hold down the <CTRL> key and press the <D> key. The follow- 
ing message appears: 

** BREAK -CLI 
1> 

You are now in the CLI. Enter: 

1> loadwb 

• You can now access all functions of the CLI. 



Question 2: How do I get out of the CLI? 

Answer The CLI window doesn't have a close gadget You exit the CLI by 

typing in the following: 

1> endcli 

If you have started programs from CLI, the CLI window remains open 
while the programs run. 

Question 3: I don't have a typewriter, but I have a printer connected 
to my Amiga. Can I use my Amiga to type? 

Answer Yes. Type in the following CL I command: 
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Hold down the <CTRL> key and press the <\> (backslash) key to exit 
typewriter mode. 

You can also copy text from the CLI window to another window. 
Type this and press the <RETURN> key to display your text in another 
window: 

1> copy * to CON:10/10/300/100/copy_text 

Re-activate the CLI window by clicking on it. Press and hold the 
<CTRL> key and press the <\> key to stop this command. 

Question 4: I only have one disk drive. Every time I call a CLI 

command, the Amiga wants the Workbench diskette. Can 
the Workbench be stored in memory? 

Answer Each CLI command is a program stored in directory c : of the Work- 

bench diskette. When you call a CLI command, the Amiga loads this 
program from the Workbench diskette. This saves system memory 
because the CLI commands aren't taking up any of that memory. On 
the other hand, if you only have one disk drive, you spend a lot of your 
time swapping diskettes. 

Buying a second disk drive is one solution to the problem. Or, if you 
have enough system memory, you can copy some or all of the CLI 
commands into a RAM disk. Here's the sequence for copying these 
commands: 

1> makedir ram:c 

1> copy sys:c to ram:c 

1> assign c: ram:c 

The Amiga creates a subdirectory on the RAM disk named c : . Next, 
the CLI command set is copied to this directory. The last command 
assigns the command directory c : to the RAM disk. 

If your Amiga doesn't have enough memory available, copy only the 
CLI commands you need most. For example: 

1> makedir ram : c 

l>copy sys:c/copy to ram:c 

l>copy sys:c/dirto ram:c 

l>copy sys:c/list to ram:c 

(..any other commands you want copied..) 

1> assign c: ram:c 
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Type in the following to make the CLI accessible from the Workbench 



1> df : c/assign c : df : c 

Once you change to the Workbench-accessed CLI, you should delete the 
RAM-based CLI to release the memory it occupies: 

1> delete ram:c#? 
1> delete ram:c 

Question 5: Are there wildcard characters on the Amiga like the * and 

? found on the older Commodore computers? 

Answer The Amiga uses the character combination #? as a wildcard. The 

asterisk * represents the current CLI window, so it isn't used as a 
wildcard on the Amiga. You can delete the entire RAM disk by typing 
in: 

1) delete ram:#? 

Try this command: 

1) runamig#? 

The Amiga can't execute this command because it doesn't know which 
program to execute. There may be several programs with names which 
start with the letters "amig". 

Question 6: How can I print aU the CLI commands on my printer? 

Answer Type in this command sequence to print the complete CLI command 

list: 

1> list quick sys : c to prt : 

The quick option prints the command names only. The file creation 
date, the time, the protection status and the file size aren't printed. The 
CLI commands themselves are in the c : subdirectory, or in the system 
directory sys : . The list prints out even faster if you use the multi- 
tasking capabilities of the Amiga: 

1> run list quick sys : c to prt : 

This line opens another task for handling printer output. The Amiga 
prints the command words in the background, leaving you free to work 
on other things. 
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Question 7: 

Answer: 



Question 8: 

Answer 

Question 9: 

Answer 



How can I determine the syntax of a certain CLI com- 
mand while working in the CLI? 

Almost all CLI commands have some help messages. If you don't 
remember the exact syntax of a command, enter the command name 
followed by a space and a question mark. For example: 

l>list ? 

The Amiga displays: 

DIR,P=PATH/K,KEYS/S,DATES/S,NODATES/S,TO/K.S/K 
SINCE/K,UPTO/K,QUICK/S: 

DIR stands for a directory. The current directory is listed if dir is 
omitted. All other options have a condition, or argument, added to the 
name of the option: 



/A 
/K 
/S 



This requires a specific argument 
This argument requires a parameter 
This argument has no parameters 



This command prints the programs in df : with the various starting 
memory blocks, but without dates: 

1> list df : keys nodates 

Type in this command sequence to print the programs in df 0- which 
were written between October 4th, 1986 and today. 

1> list df : since 04-Oct-86 upto today 

How can I stop a CLI command as it executes? 

Pressing <CTRLxC> stops any command. <CTRL><D> sends an 
execute command to stop the program as soon as possible. 

How can I copy a program using one disk drive? 

There are two methods of copying programs with one disk drive, 
a) Using the RAM disk: 

Copy the program you want copied, as well as the copy pro- 
gram, from the source diskette into the RAM disk: 

1> copy program to ram: 
1> copy c/copy to ram: 
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Note: 



• The copy program was copied by the second command se- 
quence. This means that you won't have to insert the Workbench 
diskette during the copying procedure. 

• Remove the source diskette and put the destination diskette in the 
drive. 

• Type in the following to copy the program onto the destination 
diskette: 

1> ram: copy ram: program to df : 

Remove the destination diskette from the drive and insert the 
Workbench diskette. 

• Enter this line to delete the RAM disk: 
1> delete ram: #? 

b) Using the Intuition icons: 

Insert the source diskette and click the source diskette's icon. 

As soon as the desired program's icon appears, remove the origi- 
nal diskette and insert the destination diskette. 

Open the destination diskette by clicking its icon. Now you can 
drag the program icon from the source diskette to the destination 
diskette's window. 

Requesters tell you when to exchange diskettes (remember not to 
remove a diskette from a drive until the disk light turns off). 

There are programs on your Workbench diskette which aren't listed in 
Intuition windows. This is because they have no icons assigned to 
them Here's how you can assign icons to these programs. 

Insert the Workbench diskette. Type in the following lines: 

1> copy df : clock.inf o to ram : 

1> rename ram: clock.inf o as ram:program.info 

1> copy c/copy to ram: 

Insert the diskette which contains the original program. Enter: 

1> ram:copy ram:program.info to df : 

Now your program (here just called program) has an icon. 

Insert the Workbench diskette and delete the RAM disk: 

1> delete ram: #? 
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Question 10: 

Answer 



Note: 



Question 11: 

Answer 



Note: 



How can I copy a program using two disk drives? 

Enter this line in the CL I to copy the program: 

1> copy df : originalprogram to df 1 : 

originalprogram is the name of your program. It must be in 
directory df : of the diskette in drive for this command to work 
correcuy. 

You can also copy a program by moving the program icon from one 
disk window to another (see b) in Question 9 above). 

Workbench diskettes with version numbers of 1.2 and above automati- 
cally copy info files when programs are copied. Info files contain the 
icon design of the program and other information. If your Workbench is 
earlier than Version 1.2, you must copy the info file and the program, 
if you want the program to have an icon: 

1> copy df roriginalprogranuinf o to df 1 : 

How can I copy an entire diskette? 

Use the diskcopy command. 

a) If you have one disk drive: 
Insert the Workbench diskette. 

• Enter the following CLI command: 

1> diskcopy from df : to df : name "copy" 

Requesters tell you to exchange the source and destination disk- 
ettes as needed. 

b) If you have two disk drives: 
Insert the Workbench diskette. 
Enter the following CLI command: 

1> diskcopy from df : to df 1 : name "copy" 

Insert the source diskette in drive and the target diskette in drive 
1. No diskette swapping is required. 

Always write-protect the source diskette before you begin copying, so 
you won't accidentally overwrite the source diskette. 
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Question 12: 

Answer 



Note: 



What is a startup sequence, and what can I do with it? 

The startup sequence is a list of CLI commands executed when the 
system is first booted up. You can also run the startup sequence while 
in the CLI: 

1> execute s/startup-sequence 

Type this command to see what the startup sequence contains: 

1> type s/startup-sequence 

You can write your own startup sequences with the CLI editor Ed. 
Type this to access Ed, and the startup sequence: 

1> ed s/startup-sequence 

The startup sequence for Workbench Version 1.2 looks like this: 

echo "Workbench Diskette (Version 1.2/33.43) " 
echo " " 

echo " (Date and time can be set with • Preferences * ) " 
if EXISTS sys : system 

path sys : system add 
endif 

BindDrivers 
Loadwb 
endcli>nil: 

Move the cursor to the line you want to change with the cursor keys. 
Pressing the <ESC> key puts you into extended command mode. Pres- 
sing <ESC> <D> <RETURN> deletes the current line. Delete the line: 

endcli > nil : 

Move the cursor to the line that says loadwb. Press <RETURN> to 
move that line down. Move the cursor to that blank line. Enter this: 

echo"**** This is my startup sequence. ****" 

Press the <ESC> key, <X> key and <RETURN> key to save your 
startup sequence. 

Try out the new sequence: 

1> execute s/startup-sequence 

As the sequence executes, your message appears on the screen, and the 
Amiga drops right into the CLI. 

The loadwb command must be present at the end of the startup 
sequence to enable Intuition. If you exit the startup sequence 
without loadwb, you'll get a blank blue screen without icons. 
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Question 13: 

Answer: 



Question 14: 

Answer 



Can the Amiga speak while in the CLI? 

Yes. The CLI command for speech is say. say works similar to a 
print command in BASIC, except that the text is read through the 
Amiga's sound system, and no quotation marks are needed for say. 
Type this in to hear say in action: 

1> say tobi is a real nice guy ! 

The default speech parameters can be changed by including a modifier in 
the text you want spoken. These modifiers are: -f (female), -m (male), 
-r (robot), -n (natural), -s # (speed; # is a number ranging from 40 to 
400) and -p# (pitch; # is a number ranging from 65 to 320). say can 
speak the contents of a file when you add the modifier -x filename 
to the command. The following example recites the startup sequence in 
a woman's voice with a pitch of 180 and a speed of 180: 

l>say -f -pl80 -sl80 -x s /startup-sequence 

You can also use say within the startup sequence (see Question 12 for 
editing instructions). Imagine having your Amiga say hello to you 
every time you turn it on! 

How can I send a C listing to a printer? 

Use the CLI type command. Say you have a C listing called test.c 
in drive df 1 : . Enter the following: 

1> run type df 1 : test.c to prt : opt n 

run uses the multitasking capabilities of the Amiga here — while the 
printer runs, you can work with another program. The opt n option 
inserts line numbers in the C listing. These are helpful when tracking 
down errors. 



Question 15: 

Answer 



How do I use the multitasking capabilities of the Amiga 
in everyday work with the CLI? 

Normally the CLI processes one command after the other; there is no 
option for multitasking. Remember that the CLI itself can't perform 
more than one task at a time. However, the multitasking operating 
system of the Amiga allows you to run several single task CLIs at 
once. 

For example, if you want to print the directory of the system diskette, 
edit a document, and have the Amiga speak a sentence, all at once, the 
usual command sequence would look like this: 
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1> list sys : to prt : 

1> ed text 

1> say hello user 

This sequence executes faster if you use multiple CLI commands: 

1> run list sys : to prt : 
1> run ed text 
1> say hello user 

The run command passes the command sequence which follows it to a 
new CLI. The original CLI then has nothing to do, and goes on to the 
next task without waiting for the first one to finish. 

There is a limitation: Two CLls shouldn't access the same drive (or a 
drive and the printer) at the same time. In the case of the disk drives, the 
two CLls share computing time, which takes the entire operation 
longer than if the two CLls were executed one after the other. 

Another way to initiate several tasks at once is by opening mulitple 
CLls with the newcli command. This gives the user another com- 
plete input interface. This method works best when you execute several 
CLI functions over a long period of time, instead of executing CLI 
commands quickly. The following example makes this clean 

1> newcli 

1> list df : quick 

2> type files opt h 

Here a new CLI opens, and all of the filenames in the df 0: directory 
appear in this window. Then the file contents of the second, new CLI 
print out This way you can read filenames in the first CLI window 
and work in the second window without disturbing the list of names. 

The newcli command also offers several options. The user can set the 
dimensions of the new CLI window. The syntax looks like this: 

1> newcli con: 0/10/639/100/newcli 

The word con : refers to the console (keyboard and monitor). The first 
two numbers specify the x and y coordinates of the upper left corner of 
the window, and the last two numbers set the width and height of the 
window. 

This lets you place new CLI windows so that they don't hide other 
windows. If you work with multiple CLls, just leave each window's 
back and front gadgets visible. Clicking a front gadget allows you to 
bring any of the windows to die foreground. 



17 



2. The CLI 



Amiga Tricks and Tips 



Question 16: 

Answer 



What options does the Amiga have for text output? 

The copy command is the simplest method: 

1> copy * to prt : 
See Question 3 for more information about the copy command 
The built in CLI editor Ed can be used for writing letters: 

1> run ed letter 

Immediately the Ed window appears, and you can write your letter. 

Ed runs independently of your original CLI. You can enter as many 
documents as you wish. When the letter is done, enter the key com- 
bination <ESCxx><RETURN> to save it to diskette under the name 
"letter". You can print your saved file from the CLI by typing: 

1> type letter to prt : 

One advantage here over the simple typewriter mode from Question 3 is 
that the text is on diskette. It can be printed at any time, or edited by 
typing: 

1> run ed letter 
If you don't want the letter any more, enter: 

1> delete letter 
The Notepad is a third option for editing text. You call it as follows: 

1> run utilities/notepad 

This is an expanded notepad which allows access to the Amiga disk 
resident fonts. That is its only real advantage over Ed. We recommend 
using Ed, or a true word processor like Abacus' TextPro or 
BeckerText. 



Question 17: 

Answer 



How can I make the invisible files on my Workbench 
diskette visible? 

A file doesn't appear in an Intuition window unless it has a 
matching info file. This info file contains the icon data for the corres- 
ponding file. 

There are many files on the Workbench diskette without info files. 
These files are invisible to windows. You can adapt these files to appear 
as icons. 
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Type in the following to load Ed: 

l>edS:show 
Enter the following text in Ed: 

.key file/a 

.bra ( 

.ket ) 

if exists sys : cli.inf o 

echo "create info file" 

if exists (file) 

copy sys : system/ cli.inf o to (file) .info 

else 
echo "there is no such source file" 

endif 
else 

echo "no .info original found" 
endif 
quit 

Now press <ESC>,<X> and <RETURN> to save the text. This text is 
saved under the name "show" in the s: directory. 

Now you can assign an info file to any file, and make the unseen file 
visible in a window. Just enter 

1> execute show NameOf TheFile 

The execute command activates the command sequence show. The 
.key command uses NameOf TheFile instead of the word file. 
The /a option indicates that this argument must be entered. 

The .bra and .ket commands define the characters which mark the 
start and end of the argument placeholders in the command sequence. 

The command sequence checks for the existence of the info file 
"cli.inf o", since this info file is used as the source info file. If this 
file is not found in your directory, you must switch the CLI gadget in 
Preferences to On (see Question 1, part a)). 

Sometimes new file icons are piled on top of each other, if they are 
identical. Separate the icons with the mouse (drag them apart), and use 
the Workbench option Snapshot to keep them in place. 
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Question 18: 

Answer 



How can I combine various documents? 

A common operation is combining various separate documents into 
one. These can be parts of a C listing, or a letter heading, text and 
closing. Ed cannot merge documents like some word processing pro- 
grams can. However, AmigaDOS has the join command available 
through the CLI. 

Say you have three text files called header, text and closing. 
You want to create a single document out of these three parts. This is 
done with join: 

1> join header text closing as letter 

The three separate components combine in order and save to diskette 
under the filename "letter". 



Question 19: 

Answer 



How can I search for certain text passages in my files? 

The search command locates a specific word or sentence in files. C 
programmers can use this command to search for procedure and variable 
names in source listings. Here's the syntax of search: 

1> search name search search_text all 

name = name of the file or disk directory being searched 

search_text = text to search for 

all = all available directories are searched 

This sequence searches all the files on the diskette in drive df 0: for the 
word"tobi." 

1> search df : search "tobi" all 

This command sequence checks the file "letter" for the name 
"Meier". 

1> search letter search "Meier" 

This command searches all of the files starting with the letters 
"docum" in the current directory for the words "Grand Rapids". 

1> search documf? search "Grand Rapids" 
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Question 20: Can a text file's contents be sorted? 

Answer Yes, the sort command allows text files of up to 200 lines to be 

sorted alphabetically. This is especially useful for address lists. For 
example, if the file "addresses" contains the unsorted addresses of 
your friends, just enter 

1> sort addresses to sorted 

This line alphabetically sorts the file, and saves the sorted list as a new 
file named "sorted". 

If you want to sort more than 200 lines of text, you must increase the 
size of the stack with the stack command. 
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2.2 New CLI commands 



AddBuffers 



BindDrivers 



The newest version of the Workbench is here! There are a number of 
new CLI commands not documented in the Amiga manual. This 
section defines these new commands in alphabetical order. 

The AddBuffers command supplies a connected disk drive with more 
working memory. A disk drive can have a maximum of 24K, but only 
a fraction of this memory is used. The result is slow diskette operation. 
AddBuffers drive df :buf f ers 10 assigns 10 buffer blocks of 
about 512 bytes each to the internal disk drive. You must decide for 
yourself which is more important— speed or memory. 

You use this command in the Workbench 1.2 startup sequence (see 
Question 12 in the preceding section). When you want to add a driver 
program other than the one controlling the disk drive, you place the 
program in the drawer marked Expansion. The BindDrivers 
command tells the CLI to look in the Expansion drawer for the 
necessary device driver. 



ChangeTaskPri 

When you test out the multitasking capabilities of the Amiga, you may 
have found one disadvantage: Multitasking sets up equal priorities. This 
is good for some tasks but not others: You don't want the disk drive 
starting up while you draw in a graphic program On the other hand, 
you might like to sort a file or format 30 diskettes while something 
else is going on. However, the draw function of the graphic program 
is much slower because of the other task(s) happening at the same time. 
The microprocessor gives all tasks the same time allotment. It doesn't 
matter that the sorting or formatting takes longer. ChangeTaskPri 
-5 sets the background diskette functions to minimal priority. These 
diskette functions take longer to execute, but won't stop the other tasks 
at crucial times. ChangeTaskPri can theoretically use values from - 
128 to +127, but values below -5 or about +5 can result in a system 
crash. 



DiskChange 



This command is for those of you who own a 5-1/4" disk drive for the 
Amiga. The DiskChange command tells the Amiga that you have 
changed diskettes in the 5-1/4" drive. If you don't use this command, 
AmigaDOS will not handle the new disk correctly. The reason is that 
unlike the 3-1/2" drive, the 5-1/4" disk drive doesn't check for diskette 
exchanges. If you manually enter DiskChange dev df 1:, the 
system solves the above problem. 
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2.2 New cli commands 



DiskDoctor 



Mount 



Path 



Once you're through paying for your Amiga, you don't have much 
money left for diskettes. So like most users, you buy no-brand disk- 
ettes, which may not be very good media. One day, the requester 
appears that says, "Disk structure corrupted: Use DiskDoctor." This 
command has no description in the AmigaDOS manual. The Disk- 
Doctor program looks at a diskette track by track, and attempts to 
correct all the errors it finds. It displays a list of all files and tracks 
which are defective or in need of repair, and instructs die user to copy 
these programs to a new diskette. If you only have an internal disk 
drive, you should enter the command as follows: 

DiskDoctor DRIVE df : 

Let the disk drive stop running after you insert the diskette containing 
the DiskDoctor, before you press the <RETURN> key. 

The Workbench is a passive program. The first thing it does is check 
for the user-defined device drivers, and whether these peripheral devices 
are connected. Mount tells the Amiga what to do with these drivers. If 
this command is found, then the Amiga checks the MountList in die 
devs directory for the drivers. If the appropriate entry is present in the 
MountList, and you have a 5-1/4" drive, entering Mount df 1 : 
instructs AmigaDOS to access the drive. 

The Workbench diskette contains all the CLI commands. When only 
one command should be executed, the Amiga first checks the current 
directory (accessed by cd) for the command. If the command isn't in 
that directory, the directory named c is searched. In Version 1.2 of the 
Workbench, some of the commands are stored in the system directory. 
The list of directories may be expanded using the path command so 
that the user can add new commands. The syntax for adding to 
directories: 



path directory_name add 

The word add tells AmigaDOS to add directory_name to the 
search path. When you want to know which directories are searched, 
enter path alone, or enter show. If the previously given directory is 
no longer needed, then you can delete it with path reset. 

This command is particularly important for Amiga 1000 owners. When 
SetDate you turn on the Amiga and you want to edit a text or a program, the 

new version is saved with the date last set in Preferences. If you 
didn't set the date before editing the text/program, the date stamped on 
the file will not be accurate. This command lets you change the date and 
time stamped on any file. You can set your date and time by entering 
the following syntax: 

SetDate FILE "text" DATE Da-Month-YR TIME 23 : 59 
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SetMap 



The Amiga sells worldwide. Many countries have different keyboard 
settings and different alphabets. To get around some of these problems 
of language, Commodore Amiga created different keyboard drivers. The 
keyboard only comes in one configuration (American), but it can 
simulate the keyboards of other nations. The SetMap command sets 
the keyboard according to the codes in the table below: 



Name 


Country 


ch 


Switzerland 


dk 


Denmark 


d 

e 
f 


Germany 

Spain 

France 


gb 


Great Britain 


i 
is 


Italy 
Iceland 


n 
s 


Norway 
Sweden/Finland 


usa () 


United States 



Version 



This command returns the version number of the Workbench and 
KickStart systems currently in use. 
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2.3 New startup sequences 



The following startup-sequence allows you to enter the current date on 
every system start. The startup-sequence file must be in the s : 
directory on the Workbench diskette to execute. 

Echo " " 

Echo "Startup-Sequence : ) 1987 by Stefan Maelger" 

Echo " " 

if exists sys : system 

Path sys : system add 

Endif 

BindDrivers 

SetMap d 

Date 

Echo " " 

Echo "Please enter the new date in" 

Echo "the displayed format : " 

Date ? 

Echo " " 

Echo "The new date is : " 

Date 

Echo " " 

Info 

loadwb 

endcli >nil : 

The sequence below sets the Amiga to tomorrow's date. If you remem- 
ber to set the date in Preferences before you turn off the Amiga, 
the date is correct, or close, the next time you turn on your Amiga. 

Echo " " 

Echo "Startup-Sequence by Stefan Maelger" 

If Exists sys : system 
Path sys : system add 
endif 

Binddrivers 
Set map d 

Date tomorrow 

Echo " " 

Echo "Today • s date is : " 

Date 

Echo "Sytem: " 
Info 

loadwb 
endcli >nil : 
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This is the ideal Workbench for CLI enthusiasts. It opens a second 
CLI window and changes the prompt slightly (you'll see how when 
you try it out). 

ADDBUFFERS df : C 20 

Echo "This creates a new CLI window and prompt" 

Echo " " 

If Exists sys : system 

Path sys : system add 

end if 

Binddrivers 

PROMPT CLI#%n> 

NEWCLI 

Info 

loadwb 
endcli >nil : 

This is the startup sequence for the beginner. It closes the big cli 
window, but opens a smaller CLI window. It also shows the RAM 
disk icon. 

Echo " '• 

Echo "Workbench Version 1.2 33.45" 

Echo " " 

If Exists sys : system 

Path sys : system add 

end if 

Binddrivers 

Echo "Welcome everyone" 

loadwb 

DIRRAM: 

NEWCLI "CON: 0/150/400/50/Alternative" 

endcli >nil : 



2.3.1 Printer spooler 



Using a printer spooler with a multitasking computer allows you to 
work on something else while a file goes to the printer. 

The CLI has a RUN command for executing a new task. You can treat 
the spooler program as a batch file using this command. The procedure 
is as follows: 

Start the CLI and enter: 

ED c: PRINT 

Now enter the following program: 
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.key f ilename/a.typ/s ;take the parameters 



Printer-Spooler 
(c) 1987 by Stefan Maelger 



if not exists <filename> ;check for file 

echo "File not found" ;no? 

quit ;-then end here 

else ;or: 

copy <f ilename> to ram:<f ilename> 

;copy file to the RAM-Disk 

if <typ> eq "DUMP" Jiex-Dump output? 

run >nil : type ram: <f ilename> to prt : opt h 

;-HexDump-Spooling 

else ;or: 

run >nil : type ram: <f ilename> to prt : opt n 

;-normal Spooling 
endif 

delete ram: <f ilename> ;f ree memory 

endif 

echo "printing" ;Output message 

quit 



Save the file with <ESCxX>. You can call the routine by entering 
the following (the DUMP parameter is optional and can be omitted): 

EXECUTE PRINT filename (DUMP) 

Since the EXECUTE command takes a while to type — and can easily be 
typed in incorrectly — enter the following: 

run>nil : copy sys : c/EXECUTE to sys : c/DO quiet 

This creates a command named DO which does the same thing as 
EXECUTE. For example: 

DO PRINT filename 

The ability to put a number of commands into a two-character word is a 
real time saver. Here's another example of DO: 

RENAME sys : c/EXECUTE TO sys : c/DO 
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2.3.2 



CLI programming (batch files) 



The CLI's flexibility in "programming'' can make much of your work 
easier. This section shows you a couple of examples for bypassing the 
problem of accessing every AmigaDOS command from the Workbench 
diskette. Also, ideas are presented here for performing data exchange 
from the CLI. 

The big hindrance to the CLI is that no loops can be constructed. The 
AmigaDOS interpreter reads every command from the execute file in 
order. Jumps cannot be executed. This goes for all CLI programming. 



2.3.3 



Resident CLI 



The fact that the CLI must always access the Workbench diskette can 
be annoying. The program below makes the CLI resident in RAM: 

Program to copy all the CLI -commands to RAM 



FAILAT 30 

MAKEDIR ram: c 



; RAM-Data create 



IF FAIL 
SKIP ende 
END IF 

» 

ECHO "CLI-commands being copied ..." 



COPY df : c TO ram: c QDIET 
ASSIGN c: ram:c 
ECHO "Ready!" 
LAB ende 



; copy all commands to ram 
; commands now from ram: 



Before you go on, you should know that this is just a revision of the 
Program^ RAM-resident CLI command workings as listed in the AmigaDOS 

description manual. 

First the program creates a directory in RAM for storing all C com- 
mands. If no errors occur, the entire CLI directory moves from the 
currently inserted diskette into RAM. When all are ready, the ASS IGN 
command tells the operating system to look in RAM only for the CLI. 
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2.3.4 



Re si (partial resident) 



There is one small disadvantage to the RAM-resident CLI. A basic 
S12K Amiga can lose a lot of memory to the CLI. Selective copying 
of CLI commands saves memory. Another advantage to Resi: Since 
every command must be copied over one at a time, you can also change 
the command names to abbreviations using the RENAME command. For 
example, delete can become del, and execute can become ex. 
This makes things much easier when you might otherwise have to enter 
long strings of characters, and even frequently used commands like dir 
or list. 



Program copies the most important CLI commands to RAM 



FAILAT 20 

ECHO "The commands are being copied! " 

MAKEDIRram:c 

COPY c/copy TO ram: c 

ASSIGN c: ram:c 

* 

COPYc/cd TO ram: c 
COPY c/ed TO ram: c 
COPYc/dir TOram:c 
COPY c/echo TO ram: c 
COPY c/type TO ram: c 
COPY c/list TO ram: c 
COPY c/inf o TO ram: c 
COPY c/date TO ram: c 
COPY c/execute TO ram: c 
COPY c/makedir TO ram: c 
COPYc/delete TO ram: c 
COPYc/assign TO ram: c 
ECHO "Ready!" 

t 

; End of copy 



2.3.5 



ToDisk 



Once you finish using the CLI in RAM, you'll want to free up the 
memory used by the resident commands. ENDCLI disables the resident 
CLI, but leaves the commands in RAM. The ToDisk program below 
assigns the CLI system in RAM to the diskette currently in the drive, 
then clears the c directory from RAM. Other programs in RAM remain 
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EXECUTE Resident 



; CLI commands copied 



ECHO "Please insert new formatted diskette ..." 

WAIT 8 SECS 

CD dfO: 

;new diskette initialization 

COPY ram:copy/CLI TO CLI ; CLI written 

COPY ram: copy /CLI. info TO CLI. info 

MAKEDIR DiskOtilities 

COPY ram: copy/Resident TO DiskOtilities 

;Help files written 

COPY ram: copy /ToDisk TO DiskOtilities 

COPY ram: copy /CLICopy TO DiskOtilities 

COPY ram: copy /ReSi TO DiskOtilities 

MAKEDIR c 

COPY ram:c TO c QOIET 

;CLI commands written 

ECHO "Ready!" 

The program copies the CLI icon in the main directory, the programs 
Program^ in the Diskutilities directory and the CLI commands in the c 

description directory from the current diskette (make sure that these programs and 
directories are on die current diskette). To avoid overwriting the copy 
routine for all CLI commands, the program uses the Resident 
routine as a subroutine. After 8 seconds the Amiga asks you to ex- 
change diskettes. The inserted diskette is viewed as the target diskette, 
and the writing procedure begins. The CLI and its icon are copied and 
then the directories with the utility programs. Finally, the commands 
copy to the newly written c directory. Now you have a diskette that 
you can call the CLI from without having to change diskettes. Typing 
ASS IGN sys : c wor kdisk : c makes the diskette in drive into the 
work diskette. 



2.3.7 



Data management 



Why should you only want to delete, save and copy files. This section 
shows how you can use the CLI to create an address file. This has all 
the basic functions you need, such as data entry, search and deletion. 
Also, you can look for keywords and view any entry you wish. 

The address file cannot exist on the main directory of the diskette. The 
Preparations best bet is to create a subdirectory with the name AdrBook: 

makedir "df : AdrBook" 
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Entry 



When you wish to work with the address file, you must change this 
directory to the current directory: 

cd "df : adrbook" 

This subdirectory contains the program and the address directory. You 
have one of two options for creating the address directory. You can use 
the program DatDir . TXT below, or enter the CLI command MAKE- 
DIR "df : AdrBook/AdressData". DatDir . TXT checks for an 
existing directory of the same name. If one exists, the user gets the 
option of cancelling die program, or deleting or recreating the directory. 

create directory in main directory 



CD dfO: AdrBook 

IF EXISTS AdressData 

ECHO "The existing data files will be erased!" 

ECHO "You have three seconds to remove the disk" 

WAIT 3 SECS 

DELETE AdressData*? 

DELETE AdressData 
END IF 

> 

MAKEDIR AdressData 

ECHO "Directory created in AdrBook!" 

Now you can continue. The Entry.TXT program lets you write indivi- 
dual address data into the AdressData subdirectory. You call this 
with EXECUTE Entry.TXT "name", "name" stands for the name 
section under which you want the address data arranged. This is always 
the main search criterion. Here you must decide whether the last name 
or the entire name is more important. You can naturally also use this 
program for keeping track of your record collection or library. The only 
important thing to remember is that text must be placed in quotation 
marks when it contains a blank space. 

Enter data in the, address data file 



JKEY Name/A 

CD dfO: AdrBook/AdressData 

I 

IF EXISTS "<Name>" 

ECHO "Existing data can only be edited!" 
ENDIF 

1 

ED FROM "<Name>" 

CD dfO: AdrBook 

ECHO "<Name> has been written!" 
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Program 
description 



Delete 



The EXECUTE command assigns a variable to the program through 
.KEY. It looks to see whether this name already exists. If so, the Amiga 
displays a warning that existing data can be edited only. You cannot 
manage multiple data under the same main search criteria. 

The AmigaDOS screen editor executes so you can edit your data. When 
the input is done, AdrBook is declared as the current directory, which 
saves you the trouble of constantly stating the directory paths. You can 
exit input mode by pressing <ESCxX> (save data and exit) as well as 
<ESCxQ> (quit without saving). 

When entering data, there are times that you either enter some data in- 
correctly, or no longer need that data. The following batch file lets you 
remove data entries without having to go directly into the directory. 

Delete name data from the address file 



;KEY Name/A 

CD dfO:AdrBook/AdressData 



IF NOT EXISTS ■ , <Name> ,, 
ECHO "Data not found!" 
SKIP Ende 

ENDIF 

DELETE "<Name>" 

ECHO "<Name> has been deleted!' 

LAB Ende 

CD dfO:AdrBook 



Program 
description 

Search 



After a short check for the existence of the file, the entry is removed 
from the data directory, and the program exits. 

If you have many friends and relations in your data file, there are times 
when you may want specific data on one particular person from a file. 
You can get an alphabetized list by typing DIR, but searching through 
a large directory can take time. The EXECUTE Search.TXT 
command searches through the directory for the name you want If die 
name exists, this data appears on the screen. 

Search for one name in the Address file 



;KEY Name/A 

CD dfO:AdrBook/AdressData 



IF EXISTS "<Name>" 
ECHO "Data found . 
TYPE "<Name>" 
SKIP Ende 

ENDIF 
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Program 
description 



Delete 



The EXECUTE command assigns a variable to the program through 
.KEY. It looks to see whether this name already exists. If so, the Amiga 
displays a warning that existing data can be edited only. You cannot 
manage multiple data under the same main search criteria. 

The AmigaDOS screen editor executes so you can edit your data. When 
me input is done, AdrBook is declared as the current directory, which 
saves you the trouble of constantly stating the directory paths. You can 
exit input mode by pressing <ESCxX> (save data and exit) as well as 
<ESCxQ> (quit without saving). 

When entering data, there are times mat you either enter some data in- 
correctly, or no longer need mat data. The following batch file lets you 
remove data entries without having to go directly into the directory. 

Delete name data from the address file 



JKEY Name/A 

CD dfO:AdrBook/AdressData 

IF NOT EXISTS "<Name>" 

ECHO "Data not found!" 

SKIP Ende 
END IF 

DELETE "<Name>" 

ECHO "<Name> has been deleted!" 

LAB Ende 

CD dfO: AdrBook 



Program 
description 

Search 



After a short check for the existence of the file, the entry is removed 
from the data directory, and the program exits. 

If you have many friends and relations in your data file, there are times 
when you may want specific data on one particular person from a file. 
You can get an alphabetized list by typing DIR, but searching through 
a large directory can take time. The EXECUTE Search .TXT 
command searches through the directory for the name you want. If the 
name exists, this data appears on the screen. 

Search for one name In the Address file 



;KEY Name/A 

CD dfO:AdrBook/AdressData 

IF EXISTS "<Name>" 
ECHO "Data found ..." 
TYPE "<Name>" 
SKIP Ende 

ENDIF 
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ECHO "Data record ?<Name>? not found!" 

IAB Ende 

CD dfO:AdrBook 

1 

A variation on searching is the keyword search. This gives you an over- 

Keyword view of which data records contain the keyword. The CLI has its own 

search provision for this command — all it needs is the keyword. The program 

below is a short batch file to perform the keyword search. Enter the 

keyword text in quotes when you call the batch file. 

Key word search of the address data 



JKEY Word/A 

ECHO "The search begins ..." 

CD dfO:AdrBook 

SEARCH FROM AdressData SEARCH "<Word>" 

ECHO "Search ended!" 
CD dfO:AdrBook 

There you have a file manager for beginners. This can be a big help for 
those who don't own a professional file management program like 
DataRetrieve Amiga. You can send your data to screen or printer as 
you wish. And when you do buy a real database program, you can 
transfer the files over to and from this program using the ASCII import 
function. 
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3 . AmigaBASIC 

BASIC (Beginner's All-purpose Symbolic Instruction Code) was writ- 
ten when computer programs were assembled by hand. Compilers were 
not good systems for beginners because the programmer had to start 
over if the programs had errors. Two people at Dartmouth thought 
about this and developed a "begmner-friendly" language. This language 
had a command set made of English words, and an interpreter instead of 
a compiler. BASIC was born, and BASIC is probably the most used 
programming language in the world today. 

Over the years BASIC has expanded and improved. An advanced BASIC 
like AmigaBASIC has the easily learned command words and the advan- 
tages of structured programming once found only in compiled lan- 
guages. 

AmigaBASIC is a product of Microsoft Corporation. Actually, Amiga- 
BASIC is more a version of Macintosh Microsoft BASIC adapted to the 
Amiga than an interpreter written specifically for the Amiga. 
AmigaBASIC supports the Amiga's windows and menu techniques, but 
many Amiga-specific features cannot be executed directly from 
AmigaBASIC. These features, like disk-resident fonts and disk 
commands, are accessible from the AmigaBASIC LIBRARY command. 
LIBRARY command demonstrations appear later on in this chapter. 

The AmigaBASIC programs in this book show where you should press 
Note: the <RETURN> key at the end of a program line. The end of paragraph 

character <\> means to press <RETURN>. These characters were added 
because some program lines extend over two lines of text in this book, 
and many of these lines must not be separated. 

All of the BASIC programs in this book are also available on the 
optional diskette for this book, see the order information at the end of 
the book for more information on how to order the optional diskette. 
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3.1 Kernel commands 



AmigaBASIC allows extremely flexible programming. In addition to 
the AmigaBASIC commands (such as print, IF/THEN/ELSE, etc.), 
the interpreter can use unfamiliar commands if they are organized as 
machine language routines. This means that you can easily integrate 
your own commands into the BASIC command set. 

Instead of writing new routines, it's easier to access existing machine 
language routines. The Amiga operating system contains a number of 
general machine language routines, called the kernel. Just as a kernel of 
corn is the basis for a plant, the Amiga kernel is the basis for the op- 
erating system. 

The operating system can be divided into about thirty libraries, arranged 
according to subject These additional routines require only five of these 
libraries: 

1. exec.library 

Responsible for tasks, I/O, general system concerns, memory 
management 

2. graphics. library 

Responsible for text and GELs (graphic elements) 

3. intutition.library 

Responsible for windows, screens, requesters and alerts 

4. dos.library 

Responsible for accessing the Disk Operating System 

5. diskf ont.library 

Responsible for Amiga fonts stored on diskette 

Each of these libraries is filled with machine language routines for 
accomplishing these tasks. To use these routines through Amiga- 
BASIC, you need three pieces of information: 

1) The interpreter must have a name for every single routine. You 
can assign each machine language routine its own name. 

2) The interpreter must convey in which library the corresponding 
routine can be found. Each library has an offset table for this 
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assignment: It begins with offset 6, and jumps in increments of 
6. Every machine language routine has its own offset. 

3) AmigaB ASIC must know which parameter register it needs for 
the routine. AmigaB ASIC uses a total of eight data registers and 
five address registers: 

1 = Data register dO 

2 «=» Data register dl 

3 = Data register d2 

4 = Data register d3 

5 = Data register d4 

6 = Data register d5 

7 = Data register d6 

8 = Data register d7 

9 = Address register aO 

10 = Address register al 

11 = Address register a2 

12 = Address register a3 

13 = Address register a4 

Every library has a ±>map file. This file contains the necessary infor- 
mation for all commands organized in the library. 

You can easily create the necessary ±>map files using the ConvertFd 
program on the Extras diskette from Commodore Amiga. 

Before you continue, you should have the following files available: 

graphics.bmap 

intuition.bmap 

execbmap 

dos.bmap 

diskfont.bmap 

Copy these files to the libs : subdirectory of the Workbench diskette. 
An alternative is to ensure that these files are in the same subdirectory 
as the program using them. The copying procedure goes like this when 
using the CLl: 

1> copy graphics.bmap to libs : 
1> copy intuit ion.bntap to libs : 
1> copy execbmap to libs : 
1> copy dos.bmap to libs : 
1> copy diskf ont.bmap to libs : 
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3.2 AmigaBASIC graphics 



The AmigaBASIC graphic commands are much too complex and ex- 
haustive to describe in this brief section (see Amiga BASIC Inside and 
Out from Abacus for a complete description). The next few pages 
contain tricks and tips to help you in your graphic programming. Well 
spend this section describing the commands in detail. 



3.2.1 



Changing drawing modes 



JAM 1 



JAM 2 



The Amiga has four different drawing modes. When you create graphics 
on the screen, they can be interpreted by the computer in one of four 
basic ways: 

When you draw a graphic (which also includes the execution of a sim- 
ple PRINT command), only the drawing color is "jammed" (drawn) into 
the target area. The color changes at the location of each point drawn, 
and all other points remain untouched (only one color is "jammed" into 
the target area). 

Two colors are "jammed" (drawn) into the target area. A set point ap- 
pears in the foreground color (AmigaBASIC color register 1), and an 
unset point takes on the background color (AmigaBASIC color register 
0). The graphic background changes from your actions. 



AmigaBASIC color register and color register 1 exchange roles. The 
inversevid result is the familiar screen color inversion. 



COMPLEMENT 



This mode works just like JAM 1 except that the set point inverts 
(complements) instead of filling with AmigaBASIC color register 1. A 
set point erases, and an unset point appears. 

These four modes can be mixed with one another, so you can actually 
have nine combinations. 

AmigaBASIC currently has no command to voluntarily change the 
drawing mode. A command must be borrowed from the internal graphic 
library. It has the format: 

SetDrMd (RastPort,Mode) 

The address for RastPort is the pointer to the current window struc- 
ture stored in WINDOW ( 8 ) . The AmigaBASIC format looks like this: 
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SetDrMd (WINDOW ( 8 ) .Mode ) 

Here is a set of routines which demonstrate the SetDrMd ( ) command: 

• ############################5 
'# #1 

'# Program: Character mode #1 
•# Author: TCfi #5 

•# Date: 8-3-87 #5 
'# Version: 1.0 #5 

•# n 

' ############################5 

5 

LIBRARY "graphics. library" 5 

1 

Shadow "Hello everyone", 115 

LOCATE 4,85 

Outline "OUTLINE: used to emphasize text." ,1011 

5 

LIBRARY CLOSE'S 

1 

END5 
5 
SUB Shadow (text$, space%) STATIC! 
cX% - POS(0)*8! 
cY% = (CSRLIN - 1)*8! 
IF cY% < 8 THEN cY% - 81 

1 

CALL SetDrMd (WINDOW (8), 0) ' JAM11 

1 

FOR loop% -1 TO LEN(text$)l 
in$ = MID$(text$, loop%,l)5 

1 
CALL Move (WINDOW (8) , cX%+l, cY%+l) 1 
COLOR 2,05 
PRINT in$l 

1 

CALL Move (WINDOW (8) , cX%, cY%) 1 

COLOR 1,01 

PRINT in$;l 

1 

cX% » cX% +space%! 
NEXT loop%l 

1 
CALL SetDrMd (WINDOW (8), 1) * 0AM21 
PRINT1 
END SUB! 

1 

SUB Outline (text$, space%) STATIC! 
cX% = POS(0)*8! 

cY% = (CSRLIN -1) * 81 
IF cY% < 8 THEN cY% = 85 

1 
FOR loop% = 1 TO LEN (text$) 1 
in$ - MID$(text$, loop%, 1)1 
CALL SetDrMd (WINDOW (8), 0) 'JAM1! 
FOR loopl% = -1 TO 15 
FOR loop2% ■ -1 TO 1! 

CALL Move (WINDOW ( 8), cX% +loop2%,cY%+loopl%)l 
PRINT in$;5 
NEXT loop2%! 
NEXT loopl%5 

CALL SetDrMd (WINDOW (8), 2) 'COMPLEMENT! 
CALL Move (WINDOW (8), cX%, cY%)! 
PRINT in$;l 
5 

cX% - cX% + space%5 
NEXT loop%5 
1 
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CALL SetDrMd (WINDOW ( 8 ),1) *JAM2! 
PRINTS ««ra^H 

END SOBS 

COMPLEMENT mode demonstrates another application: rubberbanding 
You work with rubberbanding every day. Every time you change the 
size of a window, this orange rubberband appears, which helps you to 
find a suitable window size. 

Intuition normally manages this rubberband. This technique is 
quite simple: To prevent the rubberband from changing the screen back- 
ground, Intuition freezes all screen activities (this is the reason that 
work stops when you enlarge or reduce a window in a drawing program, 
for example). The COMPLEMENT drawing mode draws the rubberband 
on the screen. This erases simply by overwriting, without chaneine the 
screen background. 

This can be easily programmed in BASIC. The following program 
illustrates this and uses some interesting AmigaBASIC commands: 

;######################### #######5 
* #! 

'* Program: Rubberbanding #! 

'# Author: TOB #c 

'# Date: 8-3-87 m 

'# Version: 2.0 %\ 

'* #11 

•################################! 

LIBRARY "graphics . library" ! 

main: ■* Rubber banding demo! 
CLSS 
! 

* * rectangle! 

PRINT "a) Draw a Rectangle" ! 
Rubberband! 
LINE <m.x,m.y) - (m.s,m.t) , ,b! 

'* line5 

LOCATE 1,1! 

PRINT "b) ...and now a Line!"! 

Rubberbandf 

LINE (m.x,m.y) - (m.s,m.t)l 

'* areaS 

LOCATE 1,11 

PRINT "c) Finally Outline an Area"! 

Rubberband! 

x » ABS(m.x-m.s)! 

y - ABS(m.y-m.t)! 

PRINT "width (x) =";xl 

PRINT "Height (y) =";y! 

PRINT "Area =";x*y; "Points."! 

LIBRARY CLOSE! 
END! 
! 
! 
SUB Rubberband STATIC! 

SHARED m.x,m.y,m.s,m.t! 

CALL SetDRMD(WIND0W(8),2) 'COMPLEMENT! 

WHILE MOOSE (0) = 01 
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roaus - MOOSE (0)1 
WEND5 

1 
m.x- MOUSE (1)5 
m.y - MOOSE (2)5 
m.s - m.xfl 
m.t - m.yll 
1 

WHILE maus < If 
m.a - m. sS 
m.b «» m.tfl 
m.s - MOOSE (1)5 
m.t - MOOSE (2) 5 

IF m.a O m.s OR m.b O m.t THENH 
LINE (m.x,m.y) - (m.a, m.b) , ,b5 
LINE (m.x,m.y) - (m.s,m.t),,M 
END IFI 
maus - MOOSE (0)1 
WENDfl 
1 
1 
1 
1 

LINE (m.x,m.y)-(m.s,m.t) ,,b5 
PSET (m.x,m.y)5 
CALL SetDRMD (WINDOW (8), 1)1 
END SOM 



3.2.2 Changing typestyles 



The Amiga has the ability to modify typestyles within a program. 
Typestyles such as bold, underlined and italic type can be changed 
through simple calculations. This is useful to adding class to your text 
output. Unfortunately, BASIC doesn't support these programmable 
styles. The SetSof tStyle system function from the graphic library 
performs this task: 

SetSoftStyle (WINDOW ( 8 ),style,enable) 
style : 

= normal 

1 = underline 

2 -bold 

3 = underline and bold 

4 = italic 

5 = underline and italic 

6 = bold and italic 

7 = underline, bold, and italic 
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The following program demonstrates these options: 

•#################################5 
'# #f 

'# Program: Text style #5 
'# Author: TOB #! 

'# Date : 8-12-87 #! 

•#################################5 

DECLARE FUNCTION AskSo£tStyle% LIBRARY! 
DECLARE FUNCTION SetSoftStyle% LIBRARY! 

LIBRARY "graphics. library" 5 

var: 'the mode assignments! 

normal% = Of 

underline% =1! 

bold% «■ 2! 

italic% ■■4! 

! 
demo: * an example! 

CLS! 

Style underline% + italic%! 

PRINT TAB (20); "This is italic underlined 
text"! 

! 

LOCATE 5,1! 

Style normal%! 

PRINT"This is the Amiga's normal text"! 

PRINT"Here are some example styles:"! 

PRINT"a) Normal text"! 

Style underline%! 

PRINT"b) Underlined text"! 

Style bold%! 

PRINT "c) Bold text"! 

Style italic%! 

PRINT "d) Italic text"! 

PRINT! 

Style normal%! 

PRINT "Here are all forms available:"! 

! 

FOR loop% - TO 7! 
Style loop%! 
PRINT "Example style number" ;loop%! 

NEXT loop%! 

! 

' and normal style! 

Style normal%! 

! 

LIBRARY CLOSE! 

END! 

! 
SUB Style (nr%) STATIC! 

bits% = AskSoftStyle% (WINDOW (8) ) f 

news% = SetSoftStyle% (WINDOW (8), nr%, bits%)! 

IF (nr% AND 4) - 4 THEN! 
CALL SetDrMd( WINDOW (8), 0) ! 

ri or a 

CALL SetDrMd (WINDOW (8) , 1 ) ! 
END IF! 
END SUB! 
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Variables 



Program 
description 



bit s % style bits enabling these character styles 

news* newly set style bits 

nr% given style bits 

The program calls the Style SUB command immediately. The 
AskSof tstyles function returns the style bits of the current font 
These bits can later be changed algorithmically. The desired change is 
made with Set Soft Style, which resets the previously obtained 
style bits. This function sets the new style when the corresponding 
mask bits in bits% are set Otherwise, these bits remain unset 

If the italic style is selected in any combination (nr% and 4=4), charac- 
ter mode JAM 1 is switched on (see Section 3.2.1 above). Italic style 
uses this mode because JAM 2 (normal mode) obstructs the characters 
to the right of the italicized text If the italic style stays unused, then 
SetDrMd ( ) goes to normal mode (JAM 2). 



3.2.3 



Move - cursor control 



Note: 



In some of the previous examples we used the graphics.library 
command MOVE. AmigaBASIC can only move the cursor by characters 
(LOCATE), or by pixels in the X-direction (PTAB), but it is easy to 
move the cursor by pixels in both X- and Y-directions with the help of 
the MOVE command. 

Call the command in BASIC as follows: 

Moves (WINDOW ( 8 ) ,x%,y% ) 

To simplify things, we have written a command that can be extremely 
useful: 

xyPTAB x%,y% 

graphics-bmap must be on the diskette. 

DECLARE FUNCTION Moves LIBRARY^ 

LIBRARY "graphics. library" H 

H 

var:H 

text$="Here we go... "I 

text$=" "+text$+" "1 

enpty$=SPACE$ (LEN (text$) ) I 

fontheight%=8fl 

1 

main:fl 

FOR y%=6 TO 1005 

xyPTAB x%,y%fl 

PRINT text $5 

xyPTAB x%,y%-fontheight%H 
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Variables 



Program 
description 



PRINT empty$fl 

x%-x%+lfl 
NEXT y%f 
1 

LIBRARY CLOSER 
END5 



fl 



SOB xyPTAB(x%,y%) STATICf 
eS-MoveS (WINDOW (8) pc%,y%) fl 

END SUBf 



text$ demo text 

empty$ empty string, provided for erasing when moving in 

the y-direction 
fontheight% font height 
x%, y% screen coordinates 

e& Moves command error message 

The Moves command is declared as a function and the library opens. 
The demo text moves across the screen in the soft-scroll mode, the 
library closes, and the program ends. 

The actual subprogram is extremely simple, since all that happens is 
that the necessary coordinates pass to the Move command. 

Although this routine looks simple, it is also very powerful. It can 
move text in any direction, as in the example, either with the smear 
effect (SetDrMd mode%=JAMl) or with soft-scrolling (SetDrMd 
mode%=JAM2). 



3.2.4 



Faster IFF transfer 



IFF/ILBM file format is quickly becoming a standard for file structure. 
IFF format simply means that data can be exchanged between different 
programs that use the IFF system Data blocks of different forms can be 
exchanged (e.g., text, pictures, music). These data blocks are called 

chunks. 

You have probably seen many loader programs for ILBM pictures in 
magazines, or even typed in the IFF format video title program from 
Abacus' AmigaBASIC Inside and Out. The long loading time of IFF 
files is the biggest disadvantage of that format. There are a number of 
reasons for this delay. First, it takes time to identify the different 
chunks and skip the chunks that are unimportant to the program. 
Second, there are a number of different ways to store a picture in ILBM 
format. For example, a graphic with five bitplanes must be saved as 
line 1 of each bitplane (1-5), line 2 of each bitplane (1-5), and so on. 
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Considering that a bitplane exists in memory as one piece, it takes time 
to split it up into these elements. Third, programs such as 
DeluxePaint II® present another problem: Each line of a bitplane is 
compressed when a graphic is saved, and must be uncompressed when 
reloading the graphic. 

Many professional programs don't use IFF for the reasons stated above. 
Some programmers don't want graphics compatible with other 
programs (e.g., Defender of the Crown® graphics). Other 
programmers prefer to sacrifice that compatibility for speed. 

You can add a professional touch to your AmigaBASIC programs with 
this routine. This program loads an IFF-ILBM graphic (you might not 
want to try this with DPaint®) and saves this graphic in the 
following format: 

Bitplane 1 (in one piece) 
Bitplane 2 ... 
...last bitplane 
Hardware-color register contents 

An AmigaBASIC program is generated which loads and displays this 
graphic after a mouse click. The AmigaBASIC program is an ASCII 
file, which can be independently MERGED or CHAINed with other pro- 
grams, and can be started from the Workbench by double-clicking its 
icon. 

The listing below is a fast loader for IFF-ILBM graphics. In-house tests 
of this loader could call up a graphic in 320 x 200 x 5 format with a 
loading speed of over 41000 bytes per second (IFF files take a hundred 
times longer to load). 

' # load pictures like a prof with #? 
, # #1 

•# FAST-GFX Amiga #? 

. # #? 

• # (W) 1987 by Stefan Maelger #? 

. ######################################5 

'? 
DECLARE FUNCTION xOpenS LIBRARY? 
DECLARE FUNCTION xReadS LIBRARY? 
DECLARE FUNCTION xWriteS LIBRARY? 
DECLARE FUNCTION Seeks LIBRARY? 
DECLARE FUNCTION AllocMem& LIBRARY? 
DECLARE FUNCTION AllocRasterS LIBRARY? 

? 

REM **** OPEN LIBRARIES ***********************? 

LIBRARY "dos. library"? 
LIBRARY "exec. library"? 
LIBRARY "graphics. library"? 

? 

BEM **** ERROR TRAPPING ***********$ 
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ON ERROR GOTO errorcheck5 
5 

REM **** INPUT THE FILENAME *****************j 
nameinput : 5 

5 



REM **** FREE MEMORY FROM THE BASIC-WINDOW *******5 
REM **** OPEN NEW WINDOW AND MINISCREEN *******f 
WINDOW CLOSE WINDOW (0)5 
SCREEN 1,320,31,1,15 
WINDOW 1,'TAST-GFX-CONVERTER",,0,15 
PALETTE 0,0,0,05 
PALETTE 1,1,0,05 
FOR i=l TO 45 

MEND i,0,0,""5 
NEXT5 

PRINT "IFF-ILBM-Picture:"5 
LINE INPUT filename$5 
PRINT "Fast-GFX-Picture:'^ 
LINE INPUT target$5 
PRINT "Name of the Loader: "5 
LINE INPUT loader$5 
CHDIR "df0:"5 
5 
REM **** OPEN IFF-DATA FILE **********************fl 
f ile$=f ilename$+CHR$ (0) 5 
handleS=xOpenS (SADD (f ile$) , 1005) 5 
IF handle&=0 THEN ERROR 2555 
5 
REM **** CREATE INPUT-BUFFER ****************f 
bufferS^AllocMemS (160, 65537S) 5 
IF bufferS=0 THEN ERROR 2545 
colorbufferS=bufferS+965 
5 
REM **** GET AND TEST CHUNKHTORM *********f 
rS-xReadS (handles, buf ferS, 12) 5 
IF PEEKL (buffers) O1179603533S THEN ERROR 2535 
IF PEEKL(bufferS+8)01229734477S THEN ERROR 2525 
bmhdflag%=05 
flag%=05 
5 
REM **** GET CHUNK NAME + CHUNK LENGTH ***********5 
WHILE flag%015 

rS=xReadS (handles, buffers, 8) f 

IF rS<8 THEN flag%-l:GOTO whileend5 
5 

lengthS=PEEKL (buf f erS+4) 5 
5 
REM **** BMHD-CHUNK? (CVL("BMHD") ) **************fl 

IF PEEKL (buffers) -1112361028S THEN5 
5 

rS-xReadS (handles , buffers , lengths ) 5 



pwidth%-PEEKW (buffers) :REM * PICTUREWIDTH5 
pheight%=PEEKW(bufferS+2) :REM * PICTUREHEIGHT5 
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pdepth%-PEEK (buf f erS+8) 
packed%=PEEK (buf f erS+10) 
swidth%=PEEKW (buf ferS+16) 
sheight%=PEEKW (buf f erS+18) 



REM * PICT0REDEPTH1 
REM * PACK-STATUS! 
REM * SCREENWIDTHH 

REM * SCREENHEIGHTH 



bytes%» (pwidth%-l) \8+lfl 

sbytes%- (swidth%-l) \8+lfl 

colmax%=2 A pdepth%f 

IF colmax%>32 THEN colmax%=32fl 

IF pwidth%<321 THEN mode%=l ELSE mode%=2fl 

IF pheight%>256 THEN mode%=mode%+2fl 

IF pdepth%=6 THEN extraplane%=l ELSE extraplane%=Ofl 

1 
REM **** NEW SCREEN PARAMETERS ****************f 

WINDOW CLOSE 15 

SCREEN CLOSE 11 

SCREEN l,pwidth%,pheight%,pdepth%- 
extraplane% , mode%H 

WINDOW l,,,0,lfl 

REM **** DETERMINE SCREEN-DATA *****************$ 
picscreenS=PEEKL (WINDOW(7) +46) 5 
viewportS=picscreenS+44 1 
rastportS=picscreen&+84fl 
colormapS=PEEKL (viewport&+4) II 
colorsS=PEEKL(colormapS+4) f 
bmapS-PEEKL (rastport&+4) 1 

REM **** HALFBRIGHT OR HOLD-AND-MODIFY ? ******fl 
IF extraplane%=l THEN5 

1 

REM **** MAKE 6TH BITPLANE ******% 

plane6S=AllocRasterS (swidth%, sheight%) fl 
IF plane6S=0 THEN ERROR 251 H 

u 

REM **** AND ADD IT TO THE DATA STROCTDRE *****fl 
POKE bmapS+5,611 
POKEL bmapS+28,plane6sfl 

1 

END IFfl 

bnhdflag%=lfl 
1 
REM **** CMAP-CHUNK (SET EACH COLOR: R,G,B) ***! 
ELSEIF PEEKL (buffers) =11291364646 THENH 

1 

IF (lengths OR 1)=1 THEN lengthS=lengthS+15 
rS=xReadS (handles , buffers , lengths) H 

FOR i%=0 TO colmax%-15 

REM **** CONVERT TO THE FORM FOR THE ***! 
REM **** THE HARDWARE-REGISTERS ***1 

POKE colorbuf f erS+i%*2 , PEEK (buf f erS+i%*3) /16fl 

greenblue%-PEEK (buf ferS+i%*3+l) f 
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greenblue%-greenblue%+PEEK (buf f erS+i%*3+2) /16H 
POKE colorbufferS+i%*2+l,greenblue%fl 
1 

NEXT1I 
1 
REM **** CAMG-CHONK - VIEWMODE (ie. HAM or LACE) ***fl 
ELSEIF PEEKL(bufferS)=1128353095s THEN! 

rS-xReadS (handles , buffers , lengths) H 
H 

viewmodeS-PEEKL (buffers) f 
REM **** BODY-CHDNK - BITMAPS, LINE FOR LINE ******fl 

ELSEIF PEEKL (buffers) -1112491097 S THEN5 
f 

PEM **** DOES THE SCREEN EXIST AT ALL? *******f 
IF bmhdf lag%-0 THEN ERROR 2505 

REM **** IS THIS LINE PACKED? *******fl 

IF packed%-l THEN5 
1 

KEM **** THEN ONPACK IT!!! *********f 
FOR y%=0 TO pheight%-lH 
FOR z%-0 TO pdepth%-ll 

adS=PEEKL (bmapS+8+4*z%) +y%*sbytes%fl 

count%»0H 

WHILE count%<bytes%I 

r&-xReadS (handles, buff erS, 1) f 
code%=PEEK (buffers) fl 
IF code%>128 THENfl 

rS-xReadS (handles , buffers ,1)5 
value%-PEEK (buffers) 5 
endbyte%»»oount%+257-code%lI 
FOR x%-count% TO endbyte%! 

POKE ads+x%,value%fl 
NEXTH 

count %-endbyte% f 
ELSEIF code%<128 THENfl 

rS-xReadS (handles, adS+count%, code%+l) 5 
count %-count%+code%+l 5 
END IFH 
WEND5 
NEXT z%,y%! 
1 
REM **** OR PERHAPS NOT PACKED? *****J 

ELSEIF packed%=0 THEN! 
11 

REM **** FILL IN THE BITMAPS WITH THE DOS-COMMAND READ *f 
FOR y%-0 TO pheight%-lfl 
FOR z%=0 TO pdepth%-m 

adS=PEEKL (bmpS+8+4*z%) +y%*sbytes%fl 
rS=xReadS (handles, ads, bytes%) f 
NEXT z%,y%f 

REM **** CODING-METHOD UNKNOWN? ****fl 
ELSEfl 
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ERROR 24911 
! 

END IF! 
1 

ELSE! 

! 
REM **** WE DO NOT HAVE TO BE ABLE TO CHUNK. ******! 
REM **** SHIFT DATA FILE POINTER ******! 

IF (lengths OR 1)-1 THEN length&-lengths+l! 
nowS-SeekS (handles, lengths , 0) ! 
! 

END IF! 
! 

REM **** END THE SUBROUTINE *******************! 
whlleend:! 
! 

WEND! 
! 

REM **** LOAD COLOR AND CLOSE FILE ****! 
IF bmhdflag%=0 THEN ERROR 248! 
CALL LoadRGB4 (viewports , colorbuff erS , colmax%) ! 
CALL xClose (handles)! 
! 

REM **** VIEW MODE GOTTEN? THEN ALSO STORE *! 
IF viewmodeSOO THEN! 

POKEW viewport S+32,viewmode&! 
END IF! 
! 

REM **** OPEN DESTINATION DATA FILE *************! 
f ile$»target$+CHR$ (0) ! 
handleS=xOpenS (SADD (£ile$) , 1005) ! 
IF handleS=0 THEN! 

handleS-xOpenS (SADD (file$) , 1006) ! 
END IF! 

! 

REM *********************************************! 

REM **** SO YOU CAN REMOVE A GRAPHIC *****<$ 

REM **** FROM MEMORY VERY QUICKLY *****fl 

! 

bitmapS=sbytes%*pheight% :REM ONE LARGE BITPLANE! 
! 

FOR i%=0 TO pdepth%-l! 

adS-PEEKL (PEEKL (WINDOW (8) +4) +8+4*i%) ! 
wS-xWriteS (handles , ads , bitmaps ) ! 

NEXT! 
! 

wS=xWriteS (handles, colorbuff erS, 64) ! 
! 
REM **** CLOSE DATA FILE, AND FREE BUFFER *****! 

CALL xClose (handles)! 

CALL FreeMem (buffers, 160)! 

! 

REM *********************************************! 
REM **** GENERATES BASIC-PROGRAM (ASCII-FORMAT) *! 
OPEN loader$ FOR OUTPUT AS 1! 

! 
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PRINT*!," 1 #######♦###########" ;CHR$ (10); 5 
PRINT*!,"' # Fast-Gfx Loader #";CHR$(10) ;fl 

PRINT#1 , " ■ # #" ; CHR$ (10) ; 1 

PRINTM.,"' # ";CHR$(169); M, 87 S. Maelger #";CHR$(10) ;fl 
PRINTM.,"' ###################";CHR$(10);5 
PRINT#l,CHR$(10);fl 

1 

REM **** DECLARE THE ROM-ROUTINES ******fl 

PRINT#1,"DECLARE FUNCTION xOpenS LIBRARY" ;CHR$ (10) ; 5 
PRINTtl, "DECLARE FDNCTION xReadS LIBRARY" ; CHR$ (1 0) ;1 
PRINT#1, "DECLARE FDNCTION AllocMem* LIBRARY" ; CHR$ (10) ;5 

REM **** FOR THE CASE OF H.A.M. OR HALFBRIGHT ****fl 

IF pdepth%=6 THEN5 
H 

PRINT#1, "DECLARE FUNCTION AllocRasterS LIBRARY";! 
PRINT#1,CHR$(10);1I 
1 

END IFfl 

REM **** OPEN NEEDED LIBRARIES *******************fl 
PRINT#1, CHR$ (10) ; H 
PRINTM , "LIBRARY " ;CHR$ (34 ) ; "dos . library" ; CHR$ (34 ) ; f 

PRINT#1 , CHR$ (10) ; 1 
PRINT#1, "LIBRARY ";CHR$ (34) ; "exec. library" ;CHR$ (34) ; f 

PRINTM, CHR$ (10) ;H 
PRINT#1, "LIBRARY 
";CHR$ (34) ; "graphics. library" ;CHR$ (34) ;1I 

PRINT#1 , CHR$ (10) ; H 
PRINTM, CHR$ (10) ;1 

REM **** RESERVE MEMORY FOR PALETTE ******f 
PRINT#1, "bS-AllocMemfi (64, 655374) ";CHR$ (10) ; 1 
PRINT* 1, "IF b&=0 THEN ERROR 7";CHR$ (10) ;f 

REM **** OPEN PICTURE-DATA FILE ******************•$ 
PRINTM, "file$=";CHR$ (34) ;target$;CHR$ (34) ; 

"+CHR$(0)";f 

PRINTM, CHR$ (10); 11 
PRINTM, "h&=xOpen& (SADD(file$) , 1005) ";CHR$ (10) ;! 

REM **** CREATE SCREEN ***********************fl 
PRINT#1, "WINDOW CLOSE WINDOW (0) ";CHR$ (10) ;fl 
PRINTM, "SCREEN 1, ";MID$ (STR$ (swidth%) ,2) ; ", "; f 
PRINT#1 , MID$ (STR$ (pheight%) , 2) ; " , " ; f 
PRINT#1,MID$ (STR$ (pdepth%-extraplane%) , 2) ; ", "; 5 
PRINT#1,MID$ (STR$ (mode%) , 2) ;CHR$ (10) ;fl 
PRINT#1, "WINDOW 1, , , 0, 1";CHR$ (10) ;fl 

PRINT#1, "viewportS=PEEKL (WINDOW (7) +46) +44";CHR$ (10) ; 5 
H 

REM **** SET ALL COLORS TO ZERO ************fl 
lcm$""CALL LoadRGB4 ( viewports, bfi, "fl 
lcm$=lcm$+MID$ (STR$ (colmax%) , 2) +") "+CHR$ (10) H 
PRINTM, lcm$;fl 

f 

REM **** IS HAM OR HALFBRIGHT ON, 6 PLANES ********fl 
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IF tief e%-6 THEN5 

PRINT#1, "nS-AllocRaster& (";fl 

PRINT#1,MID$ (STR$ (awidth%) , 2) ; ", ";H 
PRINT#1,MID$ (STRS (pheight%) , 2) ; ") ";CHR$ (10) ; t 

PRINT#1,"IF nS-0 THEN ERROR 7";CHR$(10) ;fl 

PRINT#1, "bmapS-PEEKL (PEEKL (WINDOW (7) +46) +88) ";CHR$ (10) ;f 
PRINT#1 , "POKE bmap&+5, 6" ; CHR$ (10) ; 1 
PRINT#1, "POKEL bmap&+28,n&";CHR$ (10) ;J 
PRINT#1 , "POKEL viewport&+32 , PEEKL (viewport&+32 ) OR 

2 A ";5 

I 

REM **** AND SET VIEWMODE ****************<fl 
IF (viewmodeS OR 2 A 7)-2 A 7 THENH 

REM **** SET HALFBRIGHT-BIT ******************% 

PRINT#1,"7";1 
It 

ELSE1 

REM **** SET HOLD-AND-MODIFY - BIT ***********$ 
PRINT#1,"11";1 

END IF! 

PRINT#1 , CHR$ (10) ; 5 

END IFH 

REM **** AND NOW THE MAIN ROUTINE ****************fl 

PRINT#l,"FOR i%-0 TO";STR$(pdepth%-l) ;CHR$(10);H 

PRINT#1," 
ad&=PEEKL (PEEKL (WINDOW (8) +4) +8+4*1%) ";CHR$ (10) ; fl 

PRINT#1," r&=xRead&(hS,adS,";f 

PRINT#1,MID$ (STR$ (bitmaps) , 2) ; "6) ";CHR$ (10) ; f 

PRINTtl, "NEXT";CHR$ (10) ;f 

REM **** GET PALETTE (ALREADY IN THE RIGHT FORM) 5 
PRINT#1, "r&-xRead& (hs,bs, 64) ";CHR$(10) ; 5 

II 

REM **** CLOSE THE FILE AGAIN *****************f 
PRINT#1, "CALL xClose (hi) ";CHR$ (10) ; t 

f 

REM **** SET COLOR TABLE **************f 
PRINT#l,lcm$;1[ 

REM **** FREE COLOR BUFFER AGAIN ****fl 
PRINT#1,"CALL FreeMem(bS,64)";CHR$(lO);1I 

11 

REM **** CLOSE LIBRARIES AGAIN ************f 
PRINT#1 , "LIBRARY CLOSE" ; CHR$ (10) ; 1 

1 

REM **** WAIT FOR MOOSE-CLICK *****************fl 
PRINT#1, "WHILE MOOSE (0)O0:WEND";CHR$ (10) ;H 
PRINT#1, "WHILE MOOSE(0)=0:WEND";CHR$ (10) ;f 
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REM **** CLOSE SCREEN AND BASIC-WINDOW *****? 
REM **** TURN WORKBENCH-SCREEN ON AGAIN *****? 

PRINT* 1, "WINDOW CLOSE 1";CHR$ (10) ;? 

PRINT#1, "SCREEN CLOSE 1 M ;CHR$ (10) ;? 

PRINT#1 , "WINDOW 1 , " ; CHR$ (34 ) ; "OK" ; CHR$ (34 ) ; ? 
PRINT#1,",(0,11)-(310, 185), 0,-1";? 
PRINT#1,CHR$ (10) ;CHR$ (10) ;? 
? 

CLOSE 15 
? 
REM **** BACK TO THE WORKBENCH ******************fl 

WINDOW CLOSE 15 

SCREEN CLOSE 11 

WINDOW 1,,, 0,-11 

PRINT "Creating Loader-Icon"! 
I 
REM **** DATA FOR SPECIAL-ICON IMAGE *******? 

RESTORE icondata? 
1 

f ile$=loader$+" . inf o"+CHR$ (0) ? 
1 

a$-""? 

FOR i%-l TO 4865 
READ b$? 
a$=a$+CHR$ (VAL ("SH"+b$) ) ? 

NEXT? 
? 

REM **** AND WRITE THE ICON DATA-FILE ****? 
REM **** TO DISK (MOD&OLDFILE) ****j 

h&-xOpenS (SADD (f ile$) , 1005) ? 

wS=xWrite& (h&, SADD (a$) , 498) ? 
? 

CALL xClose(hS)? 
? 
REM **** PERHAPS STILL ANOTHER PICTURE ??? 

CLS? 

PRINT "Another Picture (y/n) ? >";? 
? 
pause: ? 

a$=INKEY$? 

IF a$0"y" AND a$0"n" GOTO pause? 
1 

PRINT UCASE$(a$)? 
IF a$-"y" GOTO nameinput? 
? 

REM **** WERE DONE... ********************? 
LIBRARY CLOSE? 
MENU RESET? 
END? 
1 

REM **** ERROR-TRAPPING ************************fl 
errorcheck: ? 
? 

n%=ERR? 
? 

IF n%=255 THEN? 

PRINT "Picture not found"? 
GOTO rerun? 
ELSEIF n%=254 THEN? 

PRINT "Not enough Memory!"? 
GOTO rerun? 
ELSEIF n%=253 OR n%-252 THEN? 
PRINT "Not IFF-ILBM-Picture!"? 
GOTO rerun? 
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ELSEIF n%-251 THEN! 

PRINT "Can Not Open 6th Plane. "5 

GOTO rerun! 
ELSEIF n%-250 THEN! 

PRINT "Not BMHD-Chunk form BODY! "5 

GOTO rerun! 
ELSEIF n%-249 THEN! 

PRINT "Onknown Crunch-Algorithm."! 

GOTO rerun! 
ELSEIF n%-248 THEN! 

PRINT "No more to view."! 

GOTO rerun! 

ELSE! 
CLOSE! 

CALL xClose (handles) ! 
CALL FreeMem (buffers, 160)! 
LIBRARY CLOSE! 
MENU RESET! 
ON ERROR GOTO 0! 
ERROR n%! 
STOP! 



! 



END IF! 

STOP! 



! 

rerun:! 

! 

IF n%0255 THEN! 

CALL xClose (handles) ! 

IF n%0254 THEN CALL FreeMem(bufferS,160) ! 

END IF! 
! 

BEEP! 

LIBRARY CLOSE! 

RON! 
! 

icondata : ! 

DATA E3,10,0,1,0,0,0,0,0,0,0,0,0,2E,0,1F,0,5,0,3,0,1! 
DATA 0,1,BD,A0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0! 
DATA 0,0,0,4,0,0,0,F2,98,0,0,0,0,80,0,0,0,80,0,0,0,0! 
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, 2E, 0, IF, 0, 2, 0! 
DATA 2,B1,E0,3,0, 0,0,0,0,0,0,0,0, 0,0,3, FF,FF,FF,FF,0! 
DATA 3,0,0,0,3,0,2,0,0,0,1,0,2,0,0,0,1,0,2,7,80,0,1! 
DATA 0,2,1,F8,0,1,0,2,0,3F,C0,1,0,2,3,FC,0,1,0,2,0! 
DATA 1F,C0,1,0,2,0,1,FE,1,0,2,0,0,1F,F1,0,2,0,0,FF,1! 
DATA 0,3,0,1F,FE,3,0,3,FF,FF,FF,FF,0,0,0,6A,BF,FO,0! 
DATA 0,0,0,7,FE,0,0,0,0,0,FF,80,7F,EF,FF,FD,FF,F8,7F! 
DATA EF, FF, FD, E0, 38, 7F,EF,FF,FD,FF,F8, 0,0, 0,0, 0,0,0! 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,3E,7C,F9,BO,0,0,20,40! 
DATA 80, A0, 0, 0, 3C, 4C,F0, 40, 0, 0, 20, 44, 80, A0, 0, 0, 20, 7C! 
DATA 81,BO,0,0,0,0,0,0,0,0,0,0,0,0,0,3,FF,FF,FF,FF,0! 
DATA 4,0,0,0,0,80,4,FF,FF,FF,FC,80,5,FF,FF,FF,FE,80! 
DATA 5,FF,FF,FF,FE,80,5,FF,FF,FF,FE,80,5,FF,FF,FF,FE! 
DATA 80,5,FF,FF,FF,FE, 80,5, FF,FF,FF,FE, 80,5, FF,FF,FF! 
DATA FE, 80,5, FF,FF,FF,FE, 80,5, FF,FF,FF,FE, 80,5, FF,FF! 
DATA FF,FE,80,4,FF,FF,FF,FC, 80, 4,0, 3, FF, 80, 80,7, FF! 
DATA 95,7F,FF, 80, 1,FF,FF,FF,FE, 0,7F,FF,FF,FF,FF,F8! 
DATA 80, 10, 0, 2, FF, 84, 80, 10, 0,2, 7F,C4, B0, 10, 0,2, 0,4! 
DATA 7F,FF,FF,FF,FF,FC,38,0,0,0,0,38,30,0,0,0,0,18,0! 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0! 
DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, C, 3A, 41! 
DATA 6D, 69, 67, 61, 42, 41, 53, 49, 43,0! 
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3.2.5 IFF brushes as objects 

If you own a high-quality paint program like DeluxePaint®, you can 
actually use it as an object editor. You can create sprites and bobs with 
this program. 

The program in this section lets you convert any IFF graphic into an 
object file. The only requirement is that the graphic cannot be too large 
for an object string. 

This graphic object can be activated and moved. Since there are no spe- 
cial techniques used for storing the background, too many bitplanes can 
cause a flickering effect 

• ######################################n 

• # Use DPaint as Object-Editor with #! 

• # n 

■#BRDSH- TRANSFORMER #5 
' # #! 

' # (W) 1987 by Stefan Maelger #! 
' ######################################! 
•f 
CLEAR, 30000s! 
DIM r(31),g(31),b<31)! 
5 
nameinput : ! 

PRINT "Brush-File Name (and Path): ";! 
LINE INPUT brush$! 
PRINTS 

PRINT "Object-Data File (and Path) : ";! 
LINE INPUT objectfile$! 
PRINT ! 

PRINT "Create Color-Data File? (Y/N) ";! 
pause:! 

a$=LEFT$ (UCASE$ (INKEY$+CHR$ (0) ) , 1) ! 
IF a$-"N" THEN ! 

PRINT "NO!"! 
ELSEIF a$-"Y" THEN! 
PRINT "OK."! 
colorflag%-l! 
PRINT ! 

PRINT "Color-Data File Name (and Path): ";! 
LINE INPUT colorfile$! 
ELSE! 

GOTO pause! 
END IF! 
PRINT ! 
! 

OPEN brush$ FOR INPUT AS 1! 

a$-INPUT$(4,l)5 

IF a$O"F0RM" THEN CLOSE 1:RUN! 
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a$=INPUT$(4,l)5 
a$-INPCIT$(4,l)! 

IF a$<> M ILBM" THEN CLOSE 1:RUN! 
5 
getchunk : 5 

a$=INPOT$ (4,1)5 
1 

IF a$-"BMHD" THEN! 

PRINT "BMHD-Chunk found."! 

PRINT ! 

a$=INP0T$(4,l)! 

bwidth%=ASC(INPOT$ (1,1) +CHR$ (0) ) *2565 

bwidth%=bwidth%+ASC (INPOT$ (1, 1) 4CHR$ (0) ) 5 

PRINT "Image width :";bwidth%;" Pixels"! 

IF bwidth%>320 THEN! 

PRINT "It is too wide. "5 

BEEP! 

CLOSE 15 

RUN! 
END IF! 

bheight%=ASC (INPOT$ (1,1) +CHR$ (0) ) *256! 
bheight%-bheight%+ASC (INPUT$ (1, 1) +CHRS (0) ) 5 
PRINT "Image height: ";bheight%;" Pixels"! 
IF bheight%>200 THEN! 

PRINT "It is too high. "5 

BEEP! 

CLOSE 15 

RON! 
END IF! 

a$"INPOT$ (4,1)1 
planes%=ASC (INPUT$ (1, 1) ) 5 
PRINT "Image Depth :";planes%;" Planes"! 
IF planes%>5 THEN! 

PRINT "Too many Planes!"! 

BEEP! 

CLOSE 15 

R0N5 
ELSEIF planes%* ( (bwidth%-l) \16+1) *2*bheight%>32000 
THEN! 

PRINT "Too many Bytes for the Object-String!"! 

BEEP! 

CLOSE 15 

RON! 
END IF ! 
a$=INPOT$(l,l)! 

packed%=ASC (INPUTS (1, 1) +CHR$ (0) ) ! 
IF packed%=0 THEN! 

PRINT "Pack status: NOT packed."! 
ELSEIF packed%-l THEN! 

PRINT "Pack status: ByteRunl -Algorithm. "5 
ELSE! 

PRINT "Pack status: Unknown method"! 



CLOSE 1! 
RON! 
END IF! 
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a$=INP0T$(9,l)fl 
Status%-Status%+H 
PRINTfl 
PRINT 5 

ELSEIF a$-"CMAP" THENfl 

PRINT "CMAP-Chunk found. "H 

a$=INPOT$ (3,1)5 

1%-ASC(INPUT$(1,1))S 

colors%«=l%\3f 

PRINT colors%; M Colors found" 5 

FOR i%-0 TO colors%-lfl 

r (i%) »ASC(INPOT$ (1,1) +CHR$ (0) ) /255f 

g(i%)-ASC(INPOT$ (1,1)+CHR$ (0) ) /255H 

b (i%) -ASC (INPOT$ (1,1) +CHR$ (0) ) /255H 
NEXT! 

Status*=Status%+25 
PRINT 5 
PRINT I 

ELSEIF a$="BODY" THENfl 

PRINT "BODY-Chunk found, "f 

PRINT f 

a$=INPUT$(4,l)fl 

bytes%= (bwidth%-l) \8+lfl 

bmap%=bytes%*bheight%fl 

obj$°STRING$ (bytes%*bheight%*planes%, 0) 5 

FOR i%=0 TO bheight%-15 

PRINT "Getting lines"; i%+H 
FOR j%-0 TO planes%-15 
IF packed%=0 THEN5 
FOR k%=l TO bytes%fl 

a$=LEFT$ (INPUT$ (1,1) +CHR$ (0) , 1) f 
MID$ (obj$, j%*bmap%+i%*bytes%+k%, 1) =sa$fl 
NEXTH 
ELSEfl 

pointer%=lfl 

WHILE pointer%<bytes%+lfl 

a%=RSC (INPOT$ (1, 1)+CHR$ (0) ) f 
IF a%<128 THENfl 

FOR k%=pointer% TO pointer%+a%5 
a$=LEFT$ (INPDT$ (1, 1)+CHR$ (0) , 1) 5 
MID$ (objS, j%*bmap%+i%*bytes%+k%, l)=a$I 
NEXT1 

pointer%=pointer%+a%+l f 
ELSEIF a%>128 THENfl 

a$=LEFT$ (INP0T$ (1, 1) +CHR$ (0) , 1) f 
FOR k%=pointer% TO pointer%+257-a%5 

MID$ (obj$, j%*bmap%+i%*bytes%+k%, 1) =a$fl 
NEXTfl 

pointer%=pointer%+256-a%5 
END IFH 
WEND II 
END IFH 
NEXTfl 
NEXT5 
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Status%=Status%+4! 
! 

ELSE! 

PRINT a$;" found."! 
a=CVL (INPOT$ (4, 1) ) /4! 
FOR i%=l TO a! 

a$-INPOT$ (4,1)! 
NEXT! 

GOTO getchunk! 
! 
END IF! 
! 
checkstatus : ! 

IF Status%<7 GOTO getchunk! 
! 

CLOSE 1! 
PRINT ! 
! 

PRINT "OK, Creating Object."! 

ob$-»"! 

FOR i%=0 TO 10! 

ob$=ob$+CHR$ (0) ! 
NEXT! 

ob$=ob$+CHR$ (planes%) +CHR$ (0) +CHR$ (0) ! 
ob$=ob$+MKI$ (bwidth%) +CHR$ (0) +CHR$ (0) ! 
ob$=ob$+MKI$ (bheight%) 4CHR$ (0) +CHR$ (24) ! 
ob$=ob$4CHR$ (0) +CHR$ (3) +CHR$ (0) +CHR$ (0) ! 
ob$=ob$+obj$! 
PRINT ! 
! 

PRINT "Create Object-Data File as ";CHR$ (34);! 
PRINT ob jectf ile$; CHR$ (34 ) ! 
PRINT ! 
! 

OPEN objectfile$ FOR OUTPUT AS 2! 

PRINT#2,ob$;! 
CLOSE 2! 

PRINT "Object stored."! 
! 

IF colorf lag%=l THEN! 
PRINT ! 

PRINT "Creating Color-Data File:"! 
OPEN colorfile$ FOR OUTPUT AS 3! 
PRINT#3,CHR$ (planes%) ;! 
PRINT " Byte 1 = Nuntoer of Bitplanes"! 
FOR i%=0 TO 2 A planes%-l! 

PRINT "Byte";i%*3+2;"- red (";i%;")*255"! 
PRINT#3,CHR$ (r <i%) *255) ;! 
PRINT "Byte";i%*3+3;"= green (";i%;")*255"! 
PRINT#3, CHR$ (g (i%) *255) ; ! 
PRINT "Byte";i%*3+4;"= blue (";i%;")*255"! 
PRINT#3, CHR$ (b (i%) *255) ; ! 
NEXT! 
CLOSE 3! 
END IF! 
! 
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SCREEN 1,320, 200, planes%, 15 

WINDOW 2, ,,0,11 

FOR i%-0 TO 2 A planes%-15 

PALETTE i%,r(i%),g(i%),b(i%)5 
NEXT! 

OBJECT. SHAPE l,ob$5 

OBJECT. PLANES l,2 A planes%-l,05 



FOR i-0 TO 300 STEP 
OBJECT. X 1,15 
OBJECT. Y 1, (i\2)5 
OBJECT. ONfl 

NEXT1 

1 

WINDOW CLOSE 25 

SCREEN CLOSE If 

f 

ROM 



.15 



Variables 



Color file 

data 

(optional) 



IFF 

structure 



status status of chunks read 

a help variable 

b array, blue scales of a color 

bmap size of BOB bitplane in bytes 

bwidth width of BOB in pixels 

brush name of IFF-ILBM file 

bytes width of BOB in bytes 

colorf ile color file name 

colors number of IFF file colors stored 

g array, green scales of a color 

packed pack status0=not packed; l=byterun 1 

bheight height of BOB in pixels 

i loop variable 

j loop variable 

k loop variable 

1 loop variable 

ob object string 

ob j image string 

ob jectf ile file stored in ob$ 

planes bitplane depth of BOB 

pointer counter variable for bytes read from a line 

r array, red scale of a color 

Byte 1= number of bitplanes in the object 

Byte 2= red scale of background color * 255 

Byte 3= green scale of background color* 255 

Byte 4= blue scale of background color * 255 

Byte 5= red scale of 1st color * 255 

Byte 6= green scale of 1st color * 255 

Byte 7= blue scale of 1st color * 255 

Now a few words about IFF-ILBM-format. A file in this format has 
several adjacently stored files called chunks. Every chunk has the fol- 
lowing design: 
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1 Chunk name = 

2 Chunk length 

3 Chunk data 



4-byte-long string (e.g., "BODY") 
4-byte integer (i.e., LONG format) 
#chunk-long bytes 



BMHD 

chunk 



CMAP 

chunk 



CRNG 

chunk 

(DeLuxe 

Paint) 



CCRT 
chunk 
(Graphic- 
raft) 



The header chunk which begins every IFF file has a similar design: 



1 Filetype 

2 File length 

3 Data type 

The most important chunks: 



"FORM" (IFF file header) 

Long value 

"ILBM" (interleaved bitmaps) 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

1 
2 
3 
4 
5 
6 

1 
2 
3 
4 
5 
6 
7 

1 
2 
3 
4 
5 
6 
7 



long 
long 
wood 
word 
wad 
wad 
byte 
byte 
byte 
byte 
wad 
byte 
byte 
wad 
wad 

long 
long 
byte 
byte 
byte 
byte 

long 
long 
wad 
wad 
wad 
byte 
byte 

long 
long 
wad 
byte 
byte 
long 
long 



"BMHD" (bitmap header chunk) 
chunk length 
graphic width in pixels 
graphic height in pixels 
X-position of graphic 
Y-position of graphic 
number of bitplanes on screen 



crunch type 

n 

transparent color 

X-aspect 

Y-aspect 

screen width in pixels 

screen height in pixels 

"CMAP" (ColorMap) 
chunk length 
color red value *255 
color green value *255 
color blue value *255 
color 1 red value *255 

"CRNG" (ColorCycle chunk-4 times) 
chunk length 
always (at this time) 



active/inactive 
lower color 
upper color 

"CCRT' (ColorCycle chunk from Graphicraft) 

chunk length 

direction 

starting color 

ending color 

seconds 

microseconds 
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BODY 
chunk 



ByteRunl- 

Crunch 

Algorithm 



1 long => "BODY" (Bitmaps) 

2 long m chunk length 

3 a 1st line of 1st bitplane (for eventual packing - 

see BMHD above) 
1st line of 2nd bitplane 
1st line of 3nd bitplane 
2nd line of 1st bitplane. . . 

There is never more than one line of a bitplane packed at a time. This 
packing can occur in line order. The coding consists of one code byte. If 
this byte has a value larger than 128, then the next byte repeats with a 
value at least 3 times more (e.g., 129 results in the next byte at 2S8 
more). Since FOR/NEXT loops require a starting value for loop 
variables, mis construct must begin with the value 1, listed as follows: 

FOR i=startvalue TO startvalue+258-codebyte-l 

Or as shown above, 257-codebyte. The second coding applies to 
codebytes less then 128. Here the next codebyte+1 byte is not used. 
In short, you could say that the first and second coding types use a 
maximum of 128 bytes. Since the width of a 640*x screen only re- 
quires 80 bytes, then one line of one bitplane only requires one coding. 



3.2.6 



Another floodfill 



The Amiga has the ability to execute complicated area filling at a rate 
of one million pixels per second in any color. The AmigaBASIC 
PAINT command performs this task. This command has one dis- 
advantage in its current form: It can only fill an area that is bordered by 
only one predetermined color. This limits anyone who might want to 
use this in their own applications (e.g., drawing programs). A solution 
might be to set up parameters with the PAINT command mat uses any 
color for the floodfill border. A routine like this exists in the operating 
system. Since the graphics library handles it as one of its own routines, 
the program stays in memory and doesn't disappear when the Work- 
bench reboots. 

The routine is called Flood and can be called from AmigaBASIC as 
follows: 

CALL Floods (Rastport,Mode,x,y) 

Here is a SUB routine that uses Flood: 

REM ##############################H 
REM # FLOODFILL Amiga #H 

REM # n 

REM # PAINT until to any #5 
REM # other color if found #5 
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REM # #5 

REM # (W) 1987 by Stefan Maelger #5 
REM ####****«**#l#«*t*#****#«f**#»5 

LIBRARY "graphics, library" 5 

SCREEN 1,640,255,2,25 

WINDCW 2, "FLOODFILL",, 0,15 

5 

LOCATE 2,21 

PRINT "Floodfill-Demo-f 

5 

CIRCLE (200, 80), 150, 21 

CIRCLE (400, 80), 150, 35 

5 

FLOODFILL 200,80,15 

FLOODFILL 300,80,15 

FLOODFILL 400,80,15 

5 

LIBRARY CLOSE! 

5 

LOCATE 4,25 

PRINT "PRESS ANY KEY" 5 

5 

WHILE INKEY$=""5 

WEND5 

5 

STOP5 

5 

SOB FLOODFILL (x% , y% , f color% ) STATIC5 

PSET (0,0), 05 

PAINT (0,0), 05 

COLOR fcolor%5 

rastportS-=WINDOW (8)5 

ToAnyColorMode%~l 5 

CALL Floods (rastportS,ToAnyColorMode%,x%,y%)5 
END SDB5 

Initializing this routine is as simple as calling PAINT. 



3.2.7 Window manipulation 



You already know that windows can do a lot. This section shows you a 
few extra ideas for working with windows in AmigaBASIC. 



3.2.7.1 Borderless BASIC windows 



An Amiga expert published a long program listing in a recent maga- 
zine. This listing looked up a bitmap address and erased the border bit 
by bit — it took more than a minute to execute. Here's an easier way to 
get the same result: 
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- #####################################1 

' # BORDERLESS for AmigaBASIC-Windows #5 
. # n 

' # (W) 1987 by Stefan Maelger #fl 
' ################$####################5 
'1 

LIBRARY "intuition. library" f 

CLSfl 

PRINT "Here is a Default Window with a Border-"! 

PRINTH 

pause 2f 

PRINT "And Without a Border (Frame) -"5 

PRINTS 

PRINT "Press any Key to Restore Default Window" 1 
S 
S 

killborderS 
1 

waitkeyl 

remakeS 

LIBRARY CLOSES 

ENDS 
S 
S 
SUB remake STATIC! 

WINDOW CLOSE IS 

WINDOW 15 
END SUBS 
H 
SOB pause (seconds%) STATICf 

t^riMER+seconds%H 

WHILE t>TIMERS 

WENDS 
END SUBS 

s 

SOB waitkey STATICS 

WHILE INKEY$=""S 

WENDS 
END SUBS 
S 
SOB killborder STATICI 

borderlessS =2"11S 

gimmezerozero&=2 A 10S 

window. basefr=WINDOW (7) S 

window. modiS="window.base&+24S 

Mode&=PEEKL (window . modiS ) S 

Mode&=Mode& AND(2 A 26-l-gimmezerozero&)f 

Mode&=Mode& OR borderlessSS 

POKEL window. modi &, Mode &S 

CALL RefreshWindowFrame (window. bases) S 
END SOBS 



3.2.7.2 Gadgets on, gadgets off 
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This program removes and adds gadgets to windows. 

• ######################################5 

• # GADGETon/off in AmigaBASIC-Windows #S 
. # #5 

• # (W) 1987 by Stefan Maelger #S 

' ######################################5 
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'! 

LIBRARY "intuition. library"! 

! 

PRINT "Make all the Gadgets disappear! "5 

SaveGadgetPointer GadgetStoreS! 

pause 55 

UnlinkGadgets! 

pause 105 

PRINT "And now bring them back again. "5 

pause 55 

SetGadgets GadgetStoreS! 

LIBRARY CLOSE! 

WINDOW CLOSE 15 

WINDOW 11 

END! 
5 
SUB pause (seoonds%) STATIC! 

t=<TIMER+seconds%5 

WHILE t>TIMER5 

WEND! 
END SUB! 
5 
SOB SaveGadgetPointer (Pointers) STATIC! 

window. bases =WINDOW (7) 5 

gadget . pointerS=»window . baseS+62 ! 

PointerS=PEEKL (gadget. pointers) ! 
END SOB! 
! 
SOB UnlinkGadgets STATIC! 

window .bases =WINDOW ( 7 ) ! 

gadget . pointer &=window . baseS+ 62 5 

POKEL gadget. pointers, 0! 

CALL RefreshWindowFrame (window . bases ) ! 
END SUB! 
! 
SUB SetGadgets (Pointers) STATIC! 

window .bases WINDOW (7) ! 

gadget -pointerS=window.baseS+62! 

POKEL gadget. pointers, Pointers! 

CALL RefreshWindowFrame (window. bases ) ! 
END SUB! 



3.2.7.3 DrawBorder 



Imagine that you want to draw a border from Intuition. You must 
first know the structure of the border, and the address of a border 
structure for the DrawBorder routine to execute. Here's the structure: 

1st word horizontal spacing from X-coordinate called by the routine 

(defines only one form and can be drawn in any spacing) 

2nd word vertical spacing of Y-coordinate 

3rd byte Character color (from BASIC) 

4th byte Background color 

5th byte Character mode (JAM1=0) 

6th byte Number of X/Y coordinate pairs 

7th long Coordinate table address 

8th long Address of next structure or value of 
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The 7th part of the structure needs a coordinate table consisting of 
words. These words contain the X-coordinate and the Y-coordinate of 
one pixel. One pixel requires four bytes (two words) of memory. 

When you call the routine with the Window Rastport instead of the 
Border Rastport (WINDOW(8)), you can draw any complex structure 
you wish in the BASIC window. There is one problem with this: The 
window's character cursor appears after the last pixel of the last struc- 
ture. A PRINT command starts output at this position. AmigaBASIC 
uses the cursor position as the starting place for PRINT. Be careful 
with your use of the PRINT statement after calling DrawBorder. 

■ ######################################5 
' # DRAWBORDER - The Border Drawer #! 

• # (W) 1987 by Stefan Maelger #f 

• ######################################! 

•a 

LIBRARY "intuition. library"! 

! 

PRINT "Putting the Coordinate-String Together"! 

! 

bwidth%=PEEKW (WINDOW (7) +8) -15 

bheight%=PEEKW (WINDOW (7) +10) -111 

xleft%=0! 

ytop%=0! 

xy$=*MKI$ (xleft%) +MKI$ (ytop%) ! 

xy$=xy$+MKI$ (xlef t%) +MKI$ (bheight%) 1 

xy$=xy$+MKI$ (bwidth%) +MKI$ (bheight%) ! 

xy$=xy$+MKI$ (bwidth%) +MKI$ (ytop%) ! 

Pairs%=4! 

xOffset%=0! 

yOffset%=0! 

bcolor%=011 

11 

PRINT "Draw the border" ! 

! 

Setborder xy$ , Pairs% , bcolor% , xOf f set% , yOf f set%! 

! 

FOR i%=3 TO 1 STEP -1! 

PRINT "Wait for a few seconds "! 

t=TIMER+10: WHILE t>TIMER:WEND! 

PRINT "Drawing in Color" ;i%! 

Setborder xy$,Pairs%, i%,xOf f set%,yOf f set%! 
NEXT! 
1 

LIBRARY CLOSE! 
END! 
! 
SOB Setborder (xy$,number%,bcolor%,x%,y%) STATIC! 

window. baseS~WINDOW (7) ! 

borderrastport&=PEEKL (window. base&+58) ! 

IF borderrastports=0 THEN EXIT SUB! 

a$=MKI$ (0) 'Horizontal Distance! 

a$=a$+MKI$ (0) 'Vertical Distance! 

a$°-a$+CHR$ (bcolor%) 'Drawing Color! 

a$-a$+CHR$ (0) 'Background (unused)! 

a$-a$+CHR$ (0) 'Mode: JAM1! 

a$=a$+CHR$ (number%) 'Number of x-y-Pairs! 

a$=a$+MKL$ (SADD (xy$) ) 'Pointer to Coordinate! 

a$=a$+MKL$ (0) 'Pointer to Next Structure! 

CALL DrawBorder (borderrastport & , SADD (a$ ) , x% , y% ) ! 

' Last Parameters are relative X- and Y- 

Cpordinates! 
END SUB! 
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3.2.7.4 ChangeBorderColor 



The next routine can change a window's border color, including the title 
bar. The entire process occurs in the form of a SUB command. 

' ######################################5 

• # CHANGE BORDER COLOR #! 

. # #5 

' # (W) 1987 by Stefan Maelger #! 

' ######################################! 

'! 

LIBRARY "intuition. library"! 

f 

PRINT "Have you ever been disturbed that the"! 

PRINT "drawing color in which borders are always "! 

PRINT "drawn is in color register and that the"! 

PRINT "background is always register 1?"! 

PRINT! 

PRINT "We can change the colors defined"! 

PRINT "in the Window command itself!"! 

! 

LOCATE 10,1: PRINT "Foreground"! 

LOCATE 13,1:PRINT "Background"! 

t=TIMER+15:WHILE t>TIMER:WEND 

FOR i=0 TO 3 

LINE (i*30,136)-STEP(30,20),i,bf! 
LINE <i*30,136)-STEP(30,20),l,b! 
NEXT! 
! 

FOR b%=0 TO 3! 
FOR f%=0 TO 3! 

ChangeBorderColor f%,b%! 

LOCATE 10,14:PRINT f%! 

LOCATE 13,14:PRINT b%! 

t=TIMER+5! 

WHILE t>TIMER! 

WEND! 
NEXT f%,b%! 

! 

ChangeBorderColor 1,0! 

! 

LIBRARY CLOSE! 

END! 

SOB CHangeBorderColor(DetailPen%,BlockPen%) STATIC! 

window. baseS=WINDOW (7) ! 

Detail. pens =window.base&+98! 

Block. pens window. base&+9911 

POKE Detail. Pens, Detail. Pen%! 

POKE BlockPenS,BlockPen%! 

CALL RefreshWindowFrame (window. bases)! 
END SUB! 
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3.2.7.5 Monocolor Workbench 



This program supplies you with an additional 16K of memory by set- 
ting up a single bitplane for color on the Workbench. A monocolor 
Workbench speeds up the screen editing of BASIC programs. 

• ######################################fl 

' # MONOCOLOR WORKBENCH #5 

• # #5 

' # (W) 1987 by Stefan Maelger #1 

• ################l#####################5 
'5 

LIBRARY "intuition. library""! 

LIBRARY "graphics. library"H 

1 

Setplanes If 

LIBRARY CLOSEfl 
SYSTEM! 

SUB Setplanes (planes%) STATIC^ 

IF planes%<l OR planes%>6 THEN EXIT SUB5 
rastport & -=WINDOW (8)5 
bitmaps* -PEEKL (rastportS+4 ) 5 
current .planes%=PEEK (bitmapsS+5) i 
window . base & WINDOW ( 7 ) f 
screen. bases =PEEKL (window. baseS+46)H 
screen. width% =PEEKW (screen. baseS+12)1 
screen. height% =PEEKW (screen. baseS+14) f 
IF current. planes%>planes% THENf 
POKE bitmapss+5,planes%f 
FOR kill.plane%=current.planes% TO planes%+l STEP -11 

plane. ads -5EEKL (bitmapsS+4+4*kill .plane%) 1 
CALL 

FreeRa Si££ < &SBlBB?feISS"- w± * h% ' 3creen - hei 3 ht% ) « 

CALL Ref reshWindowFrame (WINDOW (7 ) ) f 
CLSfl 
NEXT f 
END IFf 
END SOB I 



3.2.7.6 PlaneCreator and HAM-Halfbrite 

You've seen an example of how FreeRaster can free a bitplane from 
memory. You can also insert other bitplanes, if you know the addresses 
of these new bitplanes. The programmers of AmigaBASIC skipped over 
support for the Hold-and-Modify (HAM) and Halfbrite modes. These 
modes require six bitplanes, and must be accessed using the LIBRARY 
command (they cannot be used through AmigaBASIC commands). Here 
is a multi-purpose program, which lets you switch between modes and 
insert additional bitplanes. 
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This program displays all 4096 colors available to AmigaBASIC in (he 
AmigaBASIC window. Pressing a mouse key displays the 64 colors 
contained in Halfbrite mode. 

• ###########################################5 

' #BAM PLANECREATOR HALFBRIGHT #! 

• # (W) 1987 by Stefan Maelger #! 
. #####f**#########«*##f*#####*###*#««####**#! 
DECLARE FUNCTION AllocMemS LIBRARY! 

LIBRARY "exec. library"! 
LIBRARY "intuition. library"! 

SCREEN 1,320,200,1,1 :REM *** just ONE Plane! 
WINDOW l,"What a wonderful feeling",,, 1! 
PALETTE 0,0,0,0! 
PALETTE 1,1,1,1! 
FOR i%-2 TO 6! 
CreateNewPlane! 
LOCATE 1,1! 

PRINT "I have"; i%; "Planes";! 
FOR j%-l TO i%! 

PRINT "!";! 
NEXT! 
PRINT! 

PRINT "Press left Mouse-Button"! 
Wait . f or . the . Click . of . the . Lef t . MouseButton! 
NEXT ! 
HAM! 

FOR green-0 TO 15! 
blue-0! 
red=0! 

LINE (0, green*10) -STEP (0, 9) , 0! 
LINE (1, green*10) -STEP (0, 9) , green+48! 
FOR x=0 TO 7! 

FOR red=l TO 15! 

LINE (x*32+red+l, green*10) -STEP (0,9), red+32! 
NEXT red! 
blue=blue+l! 
LINE (x*32+17,green*10) -STEP (0, 9) ,blue+16! 

FOR red=14 TO STEP -1! 

LINE (x*32+17+15-red,green*10) -STEP (0, 9) , red+32! 
NEXT red! 
blue=blue+l! 
IF blue<16 THEN LINE(x*32+33,green*10)- 

ST N!M' blue+1611 

NEXT green! 

Wait . for . the . Click . of . the . Left . MouseButton! 

CLS! 

HB! 

FOR i%«0 TO 3! 

FOR i%=0 TO 15! 

LINE (j%*18,i%*45)-STEP(18,45),i%*16+j%,bf! 

LINE (j%*18,i%*45)-STEP(18,45),l,b! 
NEXT! 

NEXT! 

Wait . for . the . Click . of . the . Lef t . MouseButton! 

WINDOW l,"What a wonderful f eeling" , , , -1! 

SCREEN CLOSE 1! 

LIBRARY CLOSE! 

END! 

SOB CreateNewPlane STATIC! 

bitmap&=PEEKL(WINDOW(7)+46)+184! 

bitplaneS=PEEKW (bitmaps) *PEEKW (bitmap&+2) ! 

wdepth%=PEEK (bitmap&+5) ! 

IF wdepth%>5 THEN EXIT SOB! 

newplaneS-AllocMemS (bitplaneS, 65538S) ! 
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IF newplaneS-0 THEN ERROR 75 

POKEL bitmap&+8+wdepth%*4,newplaneSfl 

POKE bitmap&+5,wdepth%+15 

IF wdepth%<5 THEN CALL RemakeDisplayH 

END SOBfl * * 

SOB HAM STATIC5 

viewmodeS-PEEKL (WINDOW (7) +46) +769 

POKEW vievmode&,2 A lU 

CALL RemakeDisplay'fl 
END SOB5 
SOB HB STATIC! 

viewmodeS-PEEKL (WINDOW (7) +46) +765 

POKEW viewmodeS,2 A 75 

CALL RemakeDisplayfl 
END SUBH 
SOB Wait. for. the. Click. of. the. Left.MouseButton STATIC5 

WHILE MOOSE (0)O0!I 

WENDfl 

WHILE MOOSE (0) -Of 

WENDfl 
END SUBI 

You can now draw with colors from to 63. The Amiga normally 
doesn't support this mode or the setup of the screens. If you want to 
work in these modes, there are some details you must know. 

Let's begin with the Halfbrite mode. Here are a total of 32 colors (0 to 
31), spread over the course of 5 planes. The PALETTE command ini- 
tializes these colors, as well as those for Hold-And-Modify mode. The 
colors in Halfbrite mode (32 to 63) correspond directly to the colors 
to 31. In other words, color number 33 is half as bright as color 1 (33- 
32=1). This equation applies to the other colors as well. You should be 
careful about the color selection with the PALETTE command. The 
following calculation returns the RGB proportions of Halfbrite colors: 

Proportion (x) =INT (Proportion (x-32) *15/2) /15 

This equation uses INT with the slashes (x/y is the same as 
INT (x/y) here). A PALETTE command for Halfbrite colors would 
look like this: 

PALETTE 1,15/15,12/15,11/15 

The command above assigns color 33 the values 7/15, 6/15, 5/15 Now 
fry assigning the values 14/15, 13/15, 10/15 to another color-it should 
be another color altogether, but the result is two equal halfbrite colors 
Just one reminder: palette doesn't allow colors over 31. 

HAM poses even more problems. Colors 0-15 are usable here. When 
you set a pixel in one of these colors, a point always appears in this 
color. 

Colors 16-31 are another matter. First the RGB value of the pixel is set 
to the left of the pixel to be drawn (Hold), and then the blue proportion 
is changed (Modify). The equation for setting the new blue portion is- 



new_blue_portion = (color-16) /15 
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Colors 32-47 change the red portion: 

new_red_portion = (color-32) /15 

Colors 48-63 modify the green portion of the colon 

new_green_portion = (color-48) /15 

You see, this way you can set up die desired color using not more than 
3 pixels for one "color." 

3.2.7.7 The coordinate problem 



The pixel with the coordinates 0,0 lies below the tide bar and to the 
right of the left border. Most programmers would expect 0,0 to be at 
the upper left corner of the screen. This can pose problems if you want 
to place an untitled window directly over the tide bar of a standard 
window (e.g., the BASIC window). 

What you want is a window eight pixels higher than normal. You must 
enter the WINDOW command as follows: 

WINDOW 2„ (0,0) - (311,-2) ,16,-1 

The Y-coordinate moves from to -2. This causes a system error, 
though. The first coordinate set (0,0) interprets correcdy; the second 
coordinate pair views the Y-value as false at best, since the interpreter 
reads the relative coordinates of the standard BASIC window. You 
could also try making a window with the following: 

WINDOW 2„ (0,0) - (311,8) ,16,-1 

This gives you a window 18 pixels high. In this case, you need a win- 
dow the height of the tide bar (10 pixels), to re-establish the screen 
coordinate system (8-10=-2). 

If you only need to cover the tide bar of the standard window, you'll 
need the following coordinate sets: 

y2=10 height of die new window 

y2=y2-10 subtract height of the title bar in proportion to the coordi- 
nates 
y2=y2-4 subtract the top and bottom borders of the new window 

The result 

WINDOW 2„ (0,0) - (311,-4) ,16,-1 
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3.3 Fade-in and fade-out 



Fading is the term used to describe gradual increases or decreases For 
example, when a song on a record ends by decreasing in volume instead 
of ending, mis is a fade-out. A graphic fade-out occurs when a scene in 
a movie gradually drops to blackness. A fade-in is the opposite action. 

You can create some really interesting effects using fading. For ex- 
ample, you can fade text in or out, or change graphic colors constantly 
("cycle"). One program helps you do all this. 



3.3.1 Basic fading 



like the other programs in this book, these fade programs are simply 
an example. You can install these routines into your own programs, 
and adapt mem to your own uses. 

This first program shows the basic idea. It shows you how to change 
the screen from black to any color on the palette, and return this color 
gradually to black: 

' Fading-In and Out of colored areas"! 
•5 

by Wgb in June '87H 
'f 

1 
Variables : f 

DEFINT a-zl 

Xn=ll 

Out=-lU 

Number=7fl 

DIM SHARED Red! (Number) , Green ! (Number) ,Blue! (Number) 1 

MainProgram: 5 

GOSOB CreateColorScreenfl 
1 

Fading: f 
1 

GOSOB SetColorsfl 

CALL Fade (0,7, 16, In) fl 

CALL Fade (0,7, 16, Out) f 

GOTO Fading^ 

H 

END5 

1 

SetColors : f 
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S 
FOR i-1 TO Numbers 

Red!(i)-RNDS 

Green! (i)=RNDS 

Blue! (i)=RNDS 
NEXT iS 

s 

RETURNS 

S 

CreateColorScreen : S 

I 

SCREEN 2,640,256,3,21 

WINDOW 1, "Color Test", (0,0) -(623, 200) ,0,2S 

S 

FOR i=0 TO Number! 

PALETTE i, 0,0, OS 
NEXT iS 

s 

SWidth=6 4 /Number S 
FOR j=0 TO 20S 

FOR i-1 TO Numbers 
x=RND*600 S 
y=RND*150S 

LINE (x,y) - (x+SWidth,y+SWidth/2) , i,bf S 
NEXT iS 
NEXT jS 

s 

RETURNS 

SUB Fade (Start, Number, NumSteps, Mode) STATICS 

StartState=0 : EndState=NumStepsS 
IF Mode=-l THENS 

StartState=NumSteps : EndState=0S 
END IFS 

FOR j=StartState TO EndState STEP ModeS 
Factor ! = j /NumStepsS 
FOR i=Start TO Start+NumberS 
PALETTE 
i,Red! (i) *Factor! , Green! (i) *Factor ! , Blue ! (i) *Factor!S 

NEXT jS 
S 
END SUBS 



Arrays 



Blue 

Green 

Red 



blue scale array 
green scale array 
red scale array 



Variables StartState starting state of colors 

Number number of colors 

(in SUB: number of faded colors) 

SWidth width of sample area 

EndState ending state of colors 

Factor color scale at current time 

In fadein pointer 

Mode mode: fade in or fade out 

Out fadeout pointer 

NumSteps number of steps for process 

Start first color number 

i,j floating variables 
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x » Y coordinates for sample field 

».-„,„„, T J? P ro I r a m defines a function which aUows the fading in or fading out 

program of any color on the palette. Combined color groups can be faded as 

aescription well. First, two variables are set up for the type of fading required. You 

can only use the variable names once numbers are assigned to them. 

Next, 7 colors are set as the resolution (e.g., the background). Every 

color is defined by an array, which accesses the individual subroutine. 

These arrays contain the color values used in the fading process. 

The CreateColorScreen subroutine opens a new screen for 
demonstration purposes. It uses the color depths set above. The output 
window shows colored rectangles. 

The main section of the program branches to a subroutine which fills 
the color arrays with "random" numbers. The main subroutine is then 
called twice. It gives the number of the first color and the increment 
needed for fading. Then it indicates whether the fade should be into the 
desired color or out to black. The ending point determines the individual 
increments. 

Now on to the routine itself. The starting value is set depending upon 
the pointer setting-either for black, or the value taken from 
NumSteps for "full color" display. The loop used to move through the 
increments is computed through Factor and sets the next color up 
from black through the palette command contained in an inner loop 
This loop repeats until either the full brightness or blackness is reached." 



3.3.2 Fade-over 



This is a variation on the above program. Instead of fading to and from 
black, however, this program fades to and from the starting and ending 
colors set by you. w«"«8 

•ir Fade ~ Fr0ra one Color to Another^ 

' by Wgb in June '87fl 

'1 

f 

Variables : 5 

DEFINT a-zfl 
f 
Number=7fl 

DIM SHARED 

|ed! (Number, 1), Green! (Number, 1), Blue! (Number,l)5 

MainProgram: f 
f 
GOSDB CreateColorScreenfl 
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Fading: 5 
5 

GOSUB SetColors! 
CALL Fade (0,7,8)5 

! 

GOTO Fading! 

5 
END! 

! 
! 
SetColors : 5 

! 
FOR i-1 TO Number! 

Red! (i,0)-Red! (i,l)! 

Green! (i,0) -Green! (i,l)5 

Blue! (i,0)-Blue! (i,D! 

Red!(i,l)-RND! 

Green! (i,l)-RND! 

Blue! (i,l)-RND! 
NEXT if 
5 
RETURN! 

CreateColorScreen : 5 

1 

SCREEN 2,640,256,3,25 

WINDOW 1, "Color Test", (0,0) -(623, 200) ,0,211 

FOR i-0 TO Number! 

PALETTE i, 0,0, 01 
NEXT i! 

! 
SWidth-6 4 /Number 5 

FOR j-0 TO 20! 

FOR i-1 TO Number! 
x-RND*600 ! 

y-RND*150! , J ,__„ 

LINE (x,y) - (x+SWidth,y+SWidth/2) , i,bf ! 
NEXT i! 
NEXT j! 

RETURN! 

5 

SUB Fade (Start,Number,NumSteps) STATIC! 

FOR j-0 TO NumSteps! 

FOR i-Start TO Start+Number! 

Rdiff !-(Red! (i,l)-Red! (i,0)) /NumSteps* j 5 
Gdiff !- (Green! (i,l)-Green! (i,0) ) /NumSteps*]! 
Bdiff !-(Blue! (i,l)-Blue! (i,0)) /NumSteps* j! 
PALETTE 
i,Red! (i,0)+Rdiff !, Green! (i,0)+Gdiff !,Blue! (i,0)+Bdiff !5 

NEXT i! 
NEXT j! 
! 
END SUB! 
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Program 
description 



The basic structure of the earlier fade program remains, but some fine- 
tuning has been done here. The variable definitions no longer require the 
pointer In and pointer Out for fading to new colors. This is also why 
the main program call to the fade routine is missing; the program goes 
to the new color setting for the fade. 

The color arrays have an identifier which shows whether the starting 
color (0) or ending color (1) is set Reaching the new color value copies 
the last new value in the starting value register, and redefines the ending 
value. The program can then tell the current status, even though no 
reading function exists. 

The fading subroutine now goes in any increment of color change. The 
difference is divided by the step value and multiplied by the number in 
the already set NumSteps. The result is added to the individual values 
of die RGB colors. When the outermost loop executes, the new color is 
on the screen. 



3.3.3 



Fading RGB color scales 



This last fading option originates from the program in Section 3.3.1. 
PALETTE commands let you fade RGB colors individually. This means 
that you can start a screen in red, fade it to green, then end by fading to 
blue. 

' Fading-In and Out of Colored Areas! 

*1 

■ by Wgb in June '875 

'1 
5 

Variables : 1 
1 

DEFINT a-zfl 
1 

In-H 

0ut=- 11 

Number-71 

^DIM SHARED Red! (Number) , Green! (Number) ,Blue! (Number) 1 

MainProgram: 1 

1 

GOSOB CreateColorScreenH 
1 

Fading: 1 
1 

GOSOB SetColorsl 

CALL Fade (0,7, 16, In) 5 

CALL Fade (0, 7, 16, Out) f 

1 

GOTO Fading^ 

1 
END! 

1 
% 
SetColors:! 
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? 
FOR 1=1 TO Number? 

Rer!(i)-RND? 
Green! (i)~RNM 
Blue! (i)»RND? 
NEXT 1? 
? 
RETURN? 
1 
CreateColorScreen : ? 

? 

SCREEN 2,640,256,3,2? 

WINDOW 1, "Color Test", (0,0) -(623, 200) ,0,2? 

? 

FOR 1=0 TO Number! 

PALETTE 1,0,0,0? 
NEXT 1? 
? 
SWidth=640/Number? 
FOR j-0 TO 20? 

FOR 1=1 TO Number? 
x=RND*600 ! 
y=RND*150? 

LINE (x, y) - (x+SWidth, y+SWidth/2) , 1, bf ? 
NEXT 1? 
NEXT j? 
? 
RETORN? 

? 

SOB Fade (Start, Number, NumSteps, Mode) STATIC? 

? 
NumSteps=NumSteps/2? 
StartState=0 : EndState=NumSteps? 
IF Mode— 1 THEN? 

StartState-NumSteps : EndState-0? 
END IF? 

StartAt=StartState/NumSteps? 
EndAt-EndState/NumSteps? 
FOR j=StartState TO EndState STEP Mode? 

Factor ! - j /NumSteps? 

FOR i-Start TO Start+Number? 

PALETTE i,Red! (i)*Factor! , Green! (i)*StartAt, 
Blue! (i)*StartAt? 

NEXT i? 
NEXT j? 
FOR j=StartState TO EndState STEP Mode? 

Factor ! = j/NumStepsf 

FOR i=Start TO Start+Number? 

PALETTE i,Red! (i)*EndAt, Green! (i)*Factor!, 
Blue! (i)*StartAt? 

NEXT i? 
NEXT j? 
FOR j=StartState TO EndState STEP Mode? 

Factor ! = j/NumSteps? 

FOR i=Start TO Start+Number? 
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PALETTE i,Red! (i) *EndAt, Green! (i) *EndAt, 
Blue! (i)*Factor!5 
NEXT if 
NEXT jf 

5 
END SUBI 

The first section of this listing is identical to the first program up until 
rrogram the subroutine. Use Copy and Paste from the Edit pulldown menu 

description to copy the first section from the program in Section 3.3.1. 

First the SUB routine divides the increment number in half. This sets 
all the programs to about the same "speed setting." Then the same loop 
executes three times (it executes three times longer). The program looks 
for the starting value of the fade loop. Whether you start with black or 
with the color, the mouse pointer is set by this value. 

Since the PALETTE instruction uses all color values, you must set the 
starting value of the red color scale in the first loop, and the other color 
scales in the other two loops. The other loops bring the program to the 
end value, as already handled by the red scale. This is computed by the 
SUB routine at the start under two factors (StartAt and EndAt). All 
other routines run similar to those in the first fade program 
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3.4 Fast vector graphics 



Vector graphics are the displayed outlines of objects on the screen, 
rather than the complete objects. This speeds up display, since the com- 
putation time is minimized for complicated graphics, and the computer 
is limited to the corner point and the resulting outline. 



3.4.1 Model grids 



Working with three-dimensional objects requires storing the corner 
point as three-dimensional coordinates. First a compound specification 
must be set up, after which die coordinate triplets are combined. 

Once you have all this data, you must project the space on the screen 
followed by an area. The following program selects a central spot on 
the screen plane. All objects here are based upon a single vanishing 
point perspective. 

Since the plane of your screen is set by its Z-coordinate, this value is 
uninteresting for all points. The grid network comes from this setup. 

To find the X- and Y-coordinates on the screen, a space must be pro- 
vided for the 3-D object Furthermore, this space must have a point set 
as the vanishing point. The Z-value lies between the object and the 
vanishing point on the screen plane. Now draw a line to the vanishing 
point from every corner of our object. When you intersect these lines 
with the screen plane, you'll find the desired X- and Y-values for these 
corner points, and their positions on the screen. 

The illustration on the next page shows a cross section of the Y- and Z- 
coordinates. 
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Three- 
dimensional 
grid 



Object _ 




Vanishing 
point 



Screen 



How should you design a program that reproduces the illustration 
above? The most important factor is setting up the corner point data. 
You can place this data in DATA statements without much trouble. 
First, though, the corner point coordinates must be on hand in the 
compound specification, which can also go into DATA statements. 

When the program identifies all spatial coordinates, it can begin 
calculating the screen coordinates. The following line formula is used in 
three-dimensional space computation: 

3D Line formula 



X 




px 




dx 


Y 


= 


py 


+1* 


dy 


Z 




pz 




dz 



You must remember the following when using the above formula: The 
desired screen coordinates are called X and Y. You figured out the Z- 
coordinate above. The P-coordinate belongs to the point used as part of 
the multiplication. All that remains is the D-value. This is the 
difference of individual point coordinate subtracted from the vanishing 
point (px-vx, py-vy, pz-vz). 

• 3D Vector-Graphics 15 
•I 

• © 8.5.1987 Wgbfl 
' 1 

H 

Variables :U 
I 

RESTORE CubeDatafl 

DEFINT B,CI 
1 

MaxPoints=25 • Maximum Number of Object Pointsfl 
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ZCoord™- 25 ' Z-Coordinates of Screen! 
NumPoints=0 • Number of Object Points! 
Connections=0 * Number of Connections! 
! 
OPTION BASE 1! 

DIM P (MaxPoints, 3) ' Spatial Coordinates! 
DIM B (MaxPoints, 2) ' Screen Coordinates! 
DIM C(MaxPoints*1.8,2) ' Connecting Instructions! 
DIM D(3) ' Difference! 

! 
DIM F(3) ' Vanishing Point (x,y,z)! 

! 

F(l)=-70 ' Vanishing Point x! 

F(2)=-50 ' y! 

F(3)=240 ' z! 

! 

MainProgram: ! 
! 

PRINT "Vanishing Point (x,y,z): ";F(1)","F(2)","F(3)! 

! 

GetPoint:! 
! 

CBase=NumPoints ' Base for Connections! 

! 
Loop:! 
! 
READ px,py,pz! 
IF px<>255 THEN ! 

NumPoints=NumPoints+l ! 

P (NumPoints , 1 ) =^>x! 

P (NumPoints, 2) -py*-l! 

P (NumPoints , 3) =pz! 

GOTO Loop! 
END IF! 
! 
GetConnection : ! 
! 
READ vl,v2! 
IF vl<>255 THEN! 

Connections-Connections+1! 

C (Connections , 1 ) -CBase+vl! 

C (Connections, 2) =CBase+v2! 

GOTO GetConnection! 
END IF! 

! 
READ Last! 
IF LastOO THEN GOTO GetPoint! 



CalculatePicture : ! 

! 

FOR i=l TO NumPoints! 
FOR j=l TO 3! 

D(j)=F(j)-P(i,j)! 
NEXT j! 
lambda= (ZCoord-P (i, 3) ) /D (3) ! 
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B (i, 1) -P (i, 1) +lairibda*D (1) « 
B(i,2)=P(i,2)+lambda*D(2)< 

NEXT if 
1 

CreatePicture : 1 
1 

FOR i-1 TO Connections! 
xl-B(C(i,l),l)+50! 
x2-B(C(i,2),l)+501 
yl«B(C(i,l),2)+1001 
y2=B(C(i,2),2)+100 1 
LINE (xl,yl)-(x2,y2)l 

NEXT if 
1 

END! 
1 
2 

CubeData:! 
1 

REM x,y,zl 

DATA 32, 20, 201 

DATA -32, 20, 201 

DATA -32,-20, 202 

DATA 32,-20, 201 

DATA 32, 20,-201 

DATA -32, 20,-201 

DATA -32,-20,-201 

DATA 32,-20,-201 

DATA 255,0,01 
1 

REM pl,p21 

DATA 1,21 

DATA 2,31 

DATA 3,41 

DATA 4,11 

DATA 1,51 

DATA 5, 61 

DATA 6,71 

DATA 7,82 

DATA 8,51 

DATA 4,81 

DATA 3,71 

DATA 2,61 

DATA 255,0,11 

1 
PyramidData:! 
1 

DATA -32, 25,-201 

DATA 32, 25,-201 
DATA 32, 25, 201 
DATA -32, 25, 201 
DATA 0, 65, 01 
DATA 255,0,02 
2 
DATA 1,21 
DATA 2,31 
DATA 3,41 
DATA 4,11 
DATA 5,11 
DATA 5,21 
DATA 5,31 
DATA 5,41 
DATA 255,0,01 
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Arrays 



Variables 



Program 
description 



P() spatial coordinates 

B() int, screen coordinates 

D ( ) differences from the illustration 

F ( ) vanishing point coordinates 

C() int, connection specifications for all objects 

Last value read, equals when program ends 

CBase object connection identifier 

NumPoint s number of points to be drawn 

MaxPoints maximum number of object points 

Connections number of connections 

ZCoord Z-coordinate of screen plane 

i,j floating variables 

lambda coordinate calculation factor 

px.py ,p z coordinates of one point in space 

vl first point of a connection 

v2 second point of a connection 

xl,yl screen coordinates for output (1st point) 

x2,y2 screen coordinates for connection (2nd point) 

First, the variable definition sets the data pointer to the beginning of 
the pixel data. In this particular case, the coordinates are a cube. Then 
all variables starting with B or C are set up as integers. You'll see why 
soon. Since the arrays for the points can be dimensioned later on, the 
program sets the maximum number of points to be stored in the 
MaxPoints variable. Also, the screen plane's position in space 
appears through the Z-coordinate. Then the number of points and con- 
nections to be read are set to null. 

Now follow the dimensioning of necessary variable arrays. These are 
the P array, into which the point coordinates are stored (an index of 3), 
then the B array which holds the later screen coordinates for every spa- 
tial point Also, the C array always contains two point numbers which 
indicate which points should be connected with one another. The last 
array, D, shows the differences between point computations. 

The F array contains the vanishing point position, holding an index for 
automatic computations (Fpx,Fpy,Fpz). 

The next line displays the vanishing point coordinates. Then the point 
reading routine follows. This routine first sets the CBase pointer to 
the first number of the point to be read. It works with several objects, 
so all you need is to enter a coordinate for the first point of the next 
object later. The loop reads spatial coordinates and checks these 
coordinates for a px value of 255. This marker reads all the points of an 
object. The connection specification follows next If not new points 
are entered into the table, and new coordinates are read 

The loop for reading connections works in much the same way. It reads 
the number of points to be connected. Then the loop ends. Otherwise, 
the two numbers are entered in the array. Finally, a number is read from 
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the data that indicates whether another object follows. This occurs when 
the value is unequal to zero. 

When both loops end, the program computes the screen points of the 
objects. This occurs in a loop which goes through the list point by 
point and computes all screen values. 

Once the difference between the vanishing point value and the current 
point goes in the D array, the program computes the lambda factor. 
Next, the program sets the equations up for the X- and Y-values. 

The grid display follows. A loop executes for setting up all connec- 
tions, and sets up all the necessary point coordinates. A previously set 
point cannot be used in this, since it cannot exchange connections. 
Since the object next to the null point was defined, you must move the 
screen center to make it visible. This redraws it line by line. 



3.4.2 Moving grid models 



Movement is just a shifting of a standing screen. You can program the 
display and easily change the spatial coordinates of any graphic. 
Unfortunately, the movement is far too slow for practical use. 

For faster movement on the screen, all values must be computed before 
the movement Also, you have to rely on an operating system routine 
for drawing lines, instead of the multiple LINE commands. 



3.4.3 Moving with operating system routines 

The developers of the Amiga operating system thought a lot about 
applications that would later run on this super computer. Vector 
graphics were probably part of the plan for future expansion. These 
make real-time graphics possible under certain conditions. This next 
routine places all points into a list. This routine is the best option for 
us, although a faster method exists. It lets you draw a grid network. 
Then you enter the corner point for your spatial coordinates to be pro- 
jected on the screen later on. The corner point moves within the space, 
while retaining the original corner coordinates. The routine loses little 
time, since the program computes all movements before the scenes and 
places these computations into an array. 

Now comes the first problem. The routine waits for a list of screen 
coordinates connected in a given sequence. There is an advantage and a 
disadvantage to this process. For one, not every coordinate pair is 
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stored, and for another the figure must be designed in such a way that a 
constant line can be drawn. If not, those sections considered unnecessary 
are skipped. However, flat objects can be drawn with just an endless 
line. 

To adapt this to the operating system, you must change the connection 
specification. Enter the corners of the object and the number of corners 
instead of the coordinate pairs. 

When the program has this data, it can start its calculations. First the 
object is moved in space by the screen coordinates. Then the new gra- 
phic transfer occurs. This section enters the available screen values in a 
long list, for later use by the operating system. 

If the list is complete, the program branches to the display loop. Here 
all scenes execute, and a corresponding pointer points to the data list for 
the current scene. Then these values transfer to the display routine. The 
color changes to the background to clear the screen, and the program re- 
draws the object at its new location on the screen. When all graphics 
have been displayed, the program branches to the beginning of display, 
and starts the process again. 

• 3D Vector Graphics V! 
'! 

' Faster by using! 

• The PolyDraw Routine! 
•1 

• by Wgb in June • 875 
'! 

! 

LIBRARY "graphics. library" ! 

RESTORES 

OPTION BASE II 

! 

Variables :f 

! 

DEFINT B,C,GI 
! 

READ MaxPoints ' Number of Object Points! 

READ Connections ' Number of Connections! 

ZCoord-25 ' Z-Coordinate in Screen Plane! 

Scenes=50 ' Number of Scenes! 
! 

DIM P (MaxPoints, 3) ' Spatial Coordinates! 

DIM B (Scenes, MaxPoints, 2) ' Screen Coordinates! 

DIM G(Connections*2*Scenes)! 

DIM C (Connections) ' Connection Rules! 

DIM D(3) ' Difference! 

! 

DIM F(3) ' Vanishing Point (x,y,z)! 
! 

F(l)=~70 ' Vanishing Point x! 

F(2)=-50 ' y ! 

F(3)=180 ' z! 
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I 

PRINT "Vanishing Point <x,y,z): ";F<1)","F(2)","F(3)1I 

1 

GetPointtH 

RESTORE PyramidData ' Object <& 

FOR i-1 TO MaxPointsn 
READ px,py,pzn 

P(i,l)-Tpx5 

P(i,2)«T?y*-l ' Transfer to other Coordinate 
System? 

P(i,3)^>z1I 
NEXT iH 

GetConnection : 1 
1 

FOR i-1 TO Connections^ 
READ C(i)f 

NEXT in 

n 

PreCalculatePicture : f 
1 
FOR sz-1 TO Scenes?I 

FOR i-1 TO MaxPointsl 
FOR j-1 TO 35 

D(j)-F(j)-P(i,j)H 
NEXT jn 

P(i,3)-P(i,3)+3H 
P(i,2)-P(i,2)-2n 
P(i,l)-P(i,l)+25 
Lantoda- (ZCoord-P (i, 3) ) /D (3) f 
B(sz, i, 1) -P (i, 1) +Lanibda*D (1) +200f 
B (sz, i, 2) -P (i, 2) +Lambda*D (2)+200H 
NEXT in 
NEXT szn 

n 

GraphicTransf er : n 

n 

FOR j=0 TO Scenes-m 

FOR i-1 TO Connections*2 STEP 2n 

G (i+ j*Connections*2) -B ( j+1, C (i/2+ . 5) , 1) n 
G(i+l+j*Connections*2)-B(j+l,C(i/2+.5),2)n 
NEXT in 
NEXT jn 

n 

Const ructScreen : 1 

n 

FOR i=0 TO Scenes-m 

Pointer=Connections*2*in 
FOR j=l TO STEP-m 
COLOR jn 

CALL Move (WINDOW (8) , G (1+Pointer) , G (2+Pointer) ) n 
CALL PolyDraw (WINDOW ( 8 ) , Connections- 
VARPTR (G (3+Pointer) ) ) n 
NEXT jn 
NEXT in 
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GOTO ConstructScreen5 

5 

5 

GraphicData : 5 

5 

DATA 5,105 

' MaxPoints,Connections5 
5 

PyramidData:5 
5 

DATA -32, 25,-205 

DATA 32, 25,-205 

DATA 32, 25, 205 

DATA -32, 25, 205 

DATA 0, 65, 05 
5 
PolntConnections : 5 

5 

DATA 2,1,5,4,3,5,2,3,4,15 
5 

DATA 4,15 



Arrays 



Variables 



Program 
description 



B ( ) screen coordinates 

D ( ) differences from the illustration 

F ( ) vanishing point coordinates 

G ( ) coordinates of all scenes 

P ( ) spatial coordinates 

C ( ) connection specifications 

Lambda coordinate calculation factor 

Pointer pointer to coordinate list of one scene 

MaxP o int s maximum number of object points 

Scenes number of scenes to be computed 

Connections number of connections 

ZCoord Z-coordinate of screen plane 

i,j floating variables 

px,py,p z spatial coordinates of comer point 

s z loop pointer for scenes 

Before the variable definition, the program opens the graphics 
library. This supplies the graphic routines needed for the grid network. 
Then all variables beginning with B, C or G are declared as integers. 
This allows the integer variable character to be left off these variables. 
The grid network display uses the new G array, into which all coor- 
dinates are stored in their proper sequences. Each set consists of a 2-byte 
integer for the X-coordinate and a 2-byte integer for the Y-coordinate. 

The new features of this program are the point and.connection loops. 
These work from established values placed at the beginning of the pro- 
gram in DATA statements. If you leave off the end marker, the program 
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runs somewhat faster. The connection array is defined as one dimen- 
sional, instead of as a string of characters. 

After the computation, the data must be converted to a form that the 
operating system can handle. The PolyDraw routine places a table at 
the X- and Y-values stated as integer values. In addition, the table must 
list how many elements are used. The table can be fairly long. This 
table doesn't need a pointer to the end of data. You place the graphic 
data for all scenes into one array, and move die routine to the address of 
the first element of the next scene. The next input is the number of cor- 
ner points required. The rest of the PolyDraw program should speak 
for itself. 

The display occurs in a new loop. It corresponds to the number of 
scenes executed. This loop first computes the pointer to the first ele- 
ment to display on the grid network. The second loop executes twice. It 
draws the network, sets the graphic cursor to the starting point and 
executes your drawing in the PolyDraw routine. The second run of the 
loop sets the floating variables from 1 to 0, and sets the drawing color 
to the background color through the COLOR command. The Amiga 
draws the grid network in the background color, erasing the net This 
process repeats as long as there are scenes available for plotting, then 
the display loop exits. 



3.4.4 3-D graphics for 3-D glasses 



While experimenting with the multiple-point system and random 3-D 
production, this idea came up for making a graphic you can view with 
3-D glasses. You've seen these glasses; one lens is red and the other 
lens is usually green (sometimes blue). 

This program works under the same principle as 3-D movies. Since you 
have two eyes, you're actually viewing two different graphics. These 
two graphics appear to merge into one when you look at the screen 
through 3-D glasses. The red lens blocks red light and shows you every 
other color. The green lens blocks green light and allows other colors to 
show through. The problem in most cases is that some colors are com- 
binations of red and green. This means that some objects cannot be 
viewed the way you want them seen through the 3-D glasses. If you use 
simple colors with 3-D glass viewing, the effect is dramatic. 

This 3-D graphic is based on the grid network used in the previous pro- 
grams. The programming principle circles around having one vanishing 
point for each eye. Since both eyes are set fairly close to one another, 
the vanishing points must be set close together as well. In this case, 
two graphics are drawn with horizontally shifted vanishing points. One 
graphic is drawn in red, and the other in green. All overlapping areas 
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appear in brown (the color you get when you combine a red light and 
green light). 

To make use of this program comfortable, the slider from Chapter 4 has 
been integrated into mis program (see section 4.1.1). You can change 
the degrees of red, green and blue to suit your 3-D glasses. You can 
even change the locations of the vanishing points for an optimal 3-D 
effect. When you are satisfied with your settings, press a key to see the 
result. You can use these values in this program or in your own 3-D 
programming. 

' 3D Vector Graphics for Red-Green Glasses ! 

' © 24.5.1987 Wgb! 



Maximum Number of Object Points! 
Z-coordinates of Screen Plane! 
Number of Object Points! 
Number of Connections! 



LIBRARY "graphics. library"! 

! 

RESTORE CubeData! 

DEFINT B,C! 

OPTION BASE 1! 

! 

Variables:! 

! 

MaxPoints=25 

ZCoord— 25 

NumPoints«=0 

Connections°0 

! 

NumClicks=0! 

MaxClick3=20! 

! 

DIM SHARED ClickTable (MaxClicks, 4)! 

DIM SHARED ClickValue (MaxClicks) ! 

DIM SHARED ClickID (MaxClicks) ! 

! 

DIM P(MaxPoints,3) * Spatial Coordinates! 

DIM B(2,MaxPoints,2) ' Screen Coordinates! 

DIM C(MaxPoints*1.8,2) ' Connection Rules! 

DIM D(3) ' Difference! 

DIM F (2, 3) • Vanishing Point (x,y,z)! 



F(l,l)»-40 
F<1,2)=- 50 
F (1,3) -240 



1st Vanishing Point x! 

y! 

z! 



F(2,l)=-80 
F(2,2)=-50 
F (2, 3) =240 

! 
DisplayText:! 



2nd Vanishing Point x! 
y! 

z! 



CLS! 

LOCATE 1,40! 

PRINT "Vanishing Point 1 (x,y,z) 



:"! 
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LOCATE 2,40V 

PRINT "Vanishing Point 2 (x,y,z) :'*H 

GOSUB DisplayCoordinatesfl 

SetColors : f 

PALETTE 0, .6, .55, .4 ' Background - bright -beigeS 

PALETTE 1,. 4, .35,0 ' Neutral Color - Dark Brown 

PALETTE 2,. 7, 0,0 ' Red 70%H 

PALETTE 3,0, .65, * Green 65%H 

SliderControl : f 

H 

Text$="Red" f 

DefMove 40! ,8!, 100! ,70!,2!5 

Text$="Green" 5 

DefMove 45! , 8! , 100! , 65! ,2!fl 

Text$="Brown"fl 

DefMove 50! , 8!, 100! ,40!,2!H 

Text$-"VPointl"H 

DefMove 60! , 8! , 100! ,40!,2!fl 

Text$="VPoint2"H 

DefMove 65! ,8!, 100! ,80!, 2!? 

5 

H 

GetPoint:fl 

CBase°4IumPoints ' Base for Connections! 

Loop:! 

READ px,py,pz! 

IF px0255 THEN f 

NumPoints=NumPoints+l f 

P (NumPoints, 1) =px! 

P (NumPoints, 2) =py*-lf 

P (NumPoints, 3) -=pzl 

GOTO Loop! 
END IF! 
! 
GetConnections : ! 
READ vl,v2f 
IF vl<>255 THEM 

Connections- Connections+1! 

C (Connections, 1) =CBase+vl! 

C (Connections, 2) =CBase+v2! 

GOTO GetConnections! 
END IF! 
! 

READ Last! 
IF LastOO THEN GOTO GetPoint! 

! 
i 

CalculateScreen : 1 

FOR k=l TO 2 -2 Vanishing Points! 

FOR i-1 TO NumPoints • All Points! 

FOR j=l TO 3 ■ Difference for x,y,z! 
D(j)=F(k,j)-P(i,j)! 
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NEXT j5 

lambda- (ZCoord-P (i, 3) ) /D (3) 5 

B (k, i, 1) ^> (i, 1) +lambda*D (1) H 

B(k,i,2)^(i,2)+lambda*D(2)5 
NEXT if 
NEXT k5 
5 
5 

DrawScreen:! 

LINE (0,0)-(300,200),0,bf • Clear Areafl 
FOR j»l TO 25 
COLOR l+j5 
IF j-2 THEN CALL SetDrMdS (WINDOW (8) ,7)5 

FOR i-1 TO Connections^ 

xl-B(j,C(i,l),l)+1005 

x2«B(j,C(i,2),l)+1005 

yl»=B(j,C(i,l),2)+705 

y2«B(j,C(i,2),2)+70 5 

LINE (xl,yl)-(x2,y2)5 
NEXT i5 
NEXT j5 

CALL SetDrMdS (WINDOW ( 8 ) ,1)1 

COLOR 15 

5 

Interrupt : 5 

5 

ON MOUSE GOSUB CheckTable5 

ON TIMER (.5) GOSUB ColorSet5 

timer oni 
mouse on5 

5 

Pause: 5 

IF ClickValue(4)*-lOF(l,l) THEN5 

F (1 , 1 ) -ClickValue (4 ) *-15 

ReDraw:5 

GOSUB DisplayCoordinates5 

GOTO CalculateScreenl 
END IF5 
IF ClickValue (5) *-10F (2,1) THEN5 

F (2 , 1 ) -ClickValue (5) *-15 

GOTO ReDraw5 
END IF5 

IF INKEY$»"" THEN GOTO Paused 
5 

OBJECT. OFF5 
TIMER OFF5 
MOUSE 0FF5 
LOCATE 15,15 

PRINT "Red Value :"; ClickValue (1) ;"%"5 
PRINT "Green Value:"; ClickValue (2) ;"%"5 
PRINT "Brown Value from :"5 

PRINT ClickValue (3) ; "% Red and "ClickValue (3) *. 875; "% 
Green" 5 
PRINT "Vanishing Point Value's X-Coordinate:"5 
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PRINT "VI ";ClickValue(4)*-l;" and V2 ";ClickValue(5)*-l! 

END! 

! 

! 

DisplayCoordinates : ! 

LOCATE 1,631 

PRINT F (1, 1) ", "F (1, 2) ","F (1,3)11 

LOCATE 2,635 

PRINT F(2,1)","F(2,2)","F(2,3)! 

RETURN! 

! 

CheckTable:! 

! 

IF NumClicks=0 THEN RETURN! 

! 

FOR i=l TO NumClicks! 
mstat=4400SE (0) 1 
mx=MOUSE(l)-6! 
my=MOUSE(2)! 

IF mx>=ClickTable(i,l) THEN! 
IF my>=ClickTable(i,2) THEN! 
IF mx<=ClickTable(i,3) THEN! 
IF my<=ClickTable(i,4) THEN! 
! 

ClickValue (i) - (my-ClickTable (i, 2) ) ! 
OBJECT. Y i, ClickTable (i, 2) +ClickValue (i) +12! 
! 
END IF! 
END IFf 
END IF! 
END IF! 
NEXT i! 

IF MOOSE (0)=-l THEN CheckTable! 
RETURN! 
! 

ColorSet : ! 
Red-ClickValue (1) /100! 
Green-ClickValue (2) /100! 
DrawColor-ClickValue (3) /100! 
PALETTE 2, Red, 0,0! 
PALETTE 3,0, Green, 0! 
PALETTE 1 , DrawColor, (COLOR* . 875) , 0! 
RETURN! 



SUB DefMove (sx, sy,yd,po,mo) STATIC! 

SHARED NumClicks! 

! 
x=sx*8 'Coordinates for Line *10 at 60 Drawing Color! 
! 

y=sy*8! 
! 

LINE (x, y) - (x+20, y+8+yd) , , B! 
! 
'Extras desired?! 
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IF mo AND 1 THEN ' Scaled 
5 

FOR sk-y TO y+yd+8 STEP (yd+8)/16 '16 Units5 
LINE (x,sk)-(x+2,sk)5 
LINE (x+20 , sk) - (x+1 8 , sk) I 

NEXT sk5 
5 

END IF! 
5 

IF mo AND 2 THEN * Text5 
5 

SHARED Text$5 

sy-sy-LEN (Text$) 5 

FOR txt-1 TO LEN(Text$)5 
LOCATE sy+txt,sx+25 
PRINT MID$(Text$,txt,l)5 

NEXT txtfl 
5 

END IF5 
1 
•Enter Click Value in Table 5 

NumClicks=NumClicks+15 

ClickTable (NumClicks, 1) =x5 

ClickTable (NumClicks, 2) =^5 

ClickTable (NumClicks, 3) =x+205 

ClickTable (NumClicks, 4)=y+yd5 

ClickID (NumClicks) "1 '1 set for Slider5 

ClickValue (NumClicks )=po 'Beginning Value defined by 

the Userf 

5 

OPEN "df0:4. Oser-Friendliness/Slider2" FOR INPUT AS 

NumClicks! 

OBJECT . SHAPE NumClicks , INPDT$ (LOF (NumClicks) , NumClicks) 5 

CLOSE NumClicks5 

OBJECT.X NumClicks, x-lH 

OBJECT. Y 

umClicks , ClickTable (NumClicks, 2) +ClickValue (NumClicks) +12 

5 

OBJECT. ON NumClicks! 

5 

END SUB5 

5 

CubeData:5 

REM x,y,z5 

DATA 32, 20, 201 

DATA -32, 20, 205 

DATA -32,-20, 205 

DATA 32,-20, 205 

DATA 32, 20,-205 

DATA -32, 20,-205 

DATA -32,-20,-205 

DATA 32,-20,-205 

DATA 255,0,05 

5 



93 



3. AmigaBASIC 



Amiga Tricks and Tips 



Arrays 



REM pl,p21 




DATA 1,21 




DATA 2,3f 




DATA 3,41 




DATA 4,11 




DATA 1,51 




DATA 5,61 




DATA 6,71 




DATA 7,81 




DATA 8,51 




DATA 4,81 




DATA 3,71 




DATA 2,61 




DATA 255,0,11 

1 

PyramidData:! 






DATA -32, 25,- 


-201 


DATA 32, 25,- 


-201 


DATA 32, 25, 


201 


DATA -32, 25, 


201 


DATA 0, 65, 


01 


DATA 255,0,01 

1 

DATA 1,21 






DATA 2,31 




DATA 3,41 




DATA 4,11 




DATA 5,11 




DATA 5,21 




DATA 5,31 




DATA 5,41 




DATA 255,0,01 




B 


screen coordinates 


D 


differences from the coordinate computation 


F 


vanishing point coordinates (both graphics) 


ClickID 


identifier for slider 


ClickTable 


slider coordinates 


ClickValue 


value of a slider 


P 


spatial coordinates 


C 


compound specification 
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Variables 



NumClickes 

Last 

Green 

CBase 

NumPoints 

MaxPoints 

Red 

Text 

Connections 

ZCoord 

DrawColor 

i.j.k 

lambda 

mo 

mstat 

mx,my 

po 

px,py,pz 

sk 

sx,sy 

txt 

vl,v2 

x,y 

xl.yl 

x2,y2 

yd 



number of defined click arrays 

value read, equals when program ends 

value for green 

object connection identifier 

number of points to be drawn 

maximum number of object points 

value for red 

text output for slider definition 

number of connections 

^coordinates of screen plane 

drawing color for "Brown" 

floating variables 

coordinate calculation factor 

mode parameters for slider extras 

mouse status 

mouse coordinates 

slider starting position 

coordinates of one point in space 

floating variable scaling 

text output coordinates 

text output floating variable 

combination points 

slider positions 

screen coordinates for output (1st point) 

screen coordinates for connection (2nd point) 

slider status 



First the graphics library opens, which contains the important gra- 
Program^ phic routines. The DATA pointer men moves to the needed data, and all 

description arrays beginning with B or c are defined as integers. Base array indices 
are set to 1. The variables here have similar functions to those in the 
earlier programs. The slider arrays and variables are new, and most of 
the variables used before have been changed slightly. 

The array containing the vanishing point has an additional index on it 
This corresponds to the number of vanishing points, and makes later 
development easier. This index lets you put up to 40 pixels as 
vanishing points. This index is ideal for spacing between projection 
surfaces and vanishing points. 

A new method must be used for setting the vanishing points. This new 
value is set in a subroutine. 

The color setting is new as well. All four colors are available; the back- 
ground can prevent the proper effect if you select the wrong color. The 
other three colors need no explanation. 

The slider definitions follow. The values of the first three sliders affect 
the colors. The last two sliders make it possible for you to set the 
vanishing points in horizontal directions. 
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The point and connection reader routines act as normal. Only the com- 
putation of the graphic has a slight change to it The loop counts from 
one vanishing point to the next This counter also depends on the 
screen coordinates as an index. 

Before screen display, the screen clears. Both vanishing points appear in 
their respective colors. When the grid for the second point is drawn, the 
program goes into a new character mode (see the table in Chapter 4 for 
the modes). When you draw with the second color, any overlapping 
between this color and red lines change to brown. At the end of the 
loop, the character mode returns to normal status, and the drawing color 
returns to 1. 

A mouse and time interrupt activate. The first interrupt reads the sliders. 
The second interrupt resets the colors when you change them. The wait 
loop checks the program for one vanishing point or two vanishing 
points. If there are two, the value transfers over, and the screen is recal- 
culated. 

The system waits for a keypress. When this occurs, the program turns 
all objects, sliders, mouse and time readers off, and displays all 
established values on the screen. 
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3.5 The Amiga fonts 

There are two sources of fonts on the Amiga: 

1) ROM font which resides in the Amiga 

2 Disk-resident fonts contained in the fonts directory of the 
Workbench diskette. 

The following program lets you access character sets through the SUB 
command Font Set which gives you access to both ROM and RAM 
character sets. This is called as follows: 

DiskFont "name",height% 

To tell which character sets are on the Workbench diskette under which 
names, enter a directory command, e.g.: 

FILES "SYS: fonts" 

Along with these character sets, you can also access the ROM character 
set topaz in 8- and 9-point sizes. It is extremely important that you 
enter the name topaz in lowercase characters, since the OpenFont ( ) 
function is very picky. It will not read entries like Topaz or TOPAZ as 
the ROM character set topaz. Instead, it loads the 11-point disk font 
Topaz. 

' ############################5 



# 






#fl 


* 


Program: 


Set TextFont 


#5 


# 


Author: 


tob 


n 


# 


Date: 


12/8/87 


n 


# 


Version: 


1.0 


#5 


# 






n 



• ############################5 

DECLARE FUNCTION QpenDiskFontS LIBRARY! 
DECLARE FUNCTION OpenFontS LIBRARY! 

a 

LIBRARY "diskfont. library" 5 
LIBRARY "graphics. library "! 

demo: ' Demonstration of SetFont Command? 
LOCATE 4,15 

FontSet "Sapphire", 195 
PRINT "This is Sapphire 19 Points"! 
FontSet "Diamond", 205 
PRINT "... another TextFont ..." 5 
FontSet "Garnet", 16! 
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PRINT "...and yet another! Amiga has still 
more! "5 

FontSet "ruby", 121 

PRINT "However this should be enough to 

demonstrate the point!'"! 

FontSet "topaz", 85 

LIBRARY CLOSEH 
END5 

SOB FontSet (FontName$, FontHeight%) STATIC! 
f.oldS - PEEKL (WINDOW (8) +52)1 
f .pre£% - 01 

FontNamaO$ - FontName$ + ".font" + CHR$(0)1 
tAttr&(0) - SADD(FontName0$)f 
tAttrS(l) - FontHeight%*2 A 16 + f.pref%5 
f.newS - OpenFontS (VARPTR (tAttrS(O) ) )5 
f.check% - PEEKW (WIND0W(8) + 60) fl 
f 
IF f .news - THEN! 

f.newS - CpenDiskFontS (VARPTR (tAttrS(0)))1I 
ELSEIF f .check% O FontHeight% THEN! 

CALL CloseFont (f.newS) f 

f.newS - CpenDiskFontS (VARPTR (tAttrS (0) ) ) 1 
END IFH 

IF f.newS O THENH 

CALL CloseFont(f.oldS)f 

CALL SetFont (WINDOW (8), f.newS) 1 
ELSEIF 0CASE$ (FontName$) - "ONDO" THEN! 

CALL CloseFont(f .olds) 5 

CALL SetFont (originals) f 
ELSEf 

BEEPS 
END IFH 
END SOBH 

Variables FontName$ character set name 

F ontName $ like FontName $ , except it ends with CHR$(0) 

FontHeight% height of the font in pixels 

£.o ids address of previously active character set 

f.prefs% preference bits 

t Att r& ( ) text attribute structure; variable array used as memory 

f .news address of newly opened character set 

f.check% current height of new character set 
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In order to open a character set, a Text At tr structure must be filled 
Program out This is stored in die t Att r & array. The address at the beginning 

description of this field (taken from VARPTR) calls the graphic routine 
OpenFont ( ) . This looks for a character set matching the parameters 
stated in the Text At tr structure. The normal fonts are the ROM font 
topaz in 8-point and 9-point, but when other fonts are still open, 
these fonts can be accessed by OpenFont ( ) . OpenFont ( ) is so 
flexible that if it can't find a font that matches the given parameters, it 
loads the font most similar to the desired font This means that the font 
loaded may not be the one you want The check% variable checks the 
height of the found font and compares it with the height found in 
FontHeight%. If the two are unequal, the opened font closes and 
OpenFont ( ) looks for another font on diskette. 

If, on the other hand, the program finds a font (f.oldsoO), 
CloseFont ( ) closes the currently active font and activates the new 
font with SetFont < ) . Otherwise the Amiga emits a warning beep 
and returns to the old font 
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3.6 Fast and easy PRINT 



The weakest command in AmigaBASIC is PRINT. This command has 
three disadvantages to it: Slow execution, no word wrap and no editing 
capabilities. 

Let's take these one at a time. PRINT executes very slowly: An entire 
page of text can take several seconds to display in a window. In addi- 
tion, print doesn't know when it reaches the end of a screen line: 
Long strings of characters go past the right border of the window, 
instead of "wrapping around" to the next screen line. Finally, PRINT 
displays text and nothing more. PRINT cannot execute editor com- 
mands that might exist, such as CLEAR SCREEN, CURSOR UP, IN- 
SERT LINE, etc. 

Since PRINT is one of the most frequendy used commands in Amiga- 
BASIC, here is a program that solves all of these problems. The 
solution is a simple one: The program activates the internal system's 
Console Device. This system component handles text input and 
output. Once active, Console Device handles all the tasks that 
PRINT can't handle: Fast text display, adaptation to window size, and a 
number of editor commands. 

Unfortunately, it's not that easy to adapt Console Device for your 
own purposes, since it must be treated as an I/O device. A number of 
Exec functions are necessary. However, once initialized, you have a 
PRINT command of much larger dimensions. With this new com- 
mand's help, your program runs faster, and editor commands make pro- 
gramming easier. 

The following program consists of the SUB programs CreatePort, 
RemovePort, CreateStdIO, RemoveStdIO, OpenConsole, 
CloseConsole, SystemOn, SystemOf f and ConPrint: 

' ############################1 

'# #5 

'# Program: Console Device #5 

'# Author: tob #1 

•# Date: 04/08/87 #1 

'# Version: 1.0 #fl 

'# M 

• ############################f 

1 

DECLARE FUNCTION OpenDevice% LIBRARY!! 

DECLARE FUNCTION AllocMemS LIBRARY! 

DECLARE FUNCTION AllocSignal% LIBRARY! 

DECLARE FUNCTION FindTaskS LIBRARY! 

DECLARE FUNCTION DoIOS LIBRARY! 
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! 

LIBRARY "exec. library"! 

! 

init: '* Control-Sequence definitions! 

Cl$ - CHR$(155) 'Control Sequence Introducer! 

C2$ - CHR$(8) 'Backspace! 

C3$ - CHR$(10) 'Une Feed! 

C4$ - CHR$ (11) 'VTab! 

C5$ - CHR$(12) 'Form Feed! 

C6$ - CHR$(13) 'CR! 

C7$ - CHR$(14) 'SHIFT IN! 

C8$ - CHR$(15) 'SHIFT 00T! 

C9$ - CHR$(155) + "IE" 'RETORN! 
! 
demo: '* Demonstration! 

ConPrint C1$+"20CA Good Day to You!"+C9$! 

ConPrint "It had been a normal day so far, but 
while on the way to the barn we saw a very big bear!"! 
! 
SystemOff! 

! 

SOB ConPrint (text$) STATIC! 

SHARED c.ioS! 

IF c.ioS - THEN : SystemOn! 

POKEL c.ioS + 36, LEN(text$)! 

POKEL c.ioS + 40, SADD(text$)! 

eS = DoIOS(c.ioS)! 
END SOB! 
! 
SOB SystemOff STATIC! 

SHARED c.ioS! 

CloseConsole c.ioS! 
END SOB! 
! 
SOB SystemOn STATIC! 

SHARED c.ioS, c.c$! 

OpenConsole c.ioS! 

POKEW c.ioS + 28, 3! 
END SOB! 
! 
SOB OpenConsole (results) STATIC! 

CreatePort "basic. con", 0, c. ports! 

IF c. ports - THEN ERROR 255! 

CreateStdIO c. ports, c.ioS! 

POKEL c.ioS + 36, 124! 

POKEL c.ioS + 40, WINDOW (7)! 

dev$ - "console. device" + CHR$(0)! 

c.error% = OpenDevice% (SADD (dev$) , 0, c.ioS, 0)! 

IF c.error% O THEN ERROR 255! 

results = c.ioS! 

END SOB! 

! 

SOB CloseConsole (ioS) STATIC! 

ports = PEEKL (ioS + 14)! 

CALL CloseDevice(ioS)! 

RemovePort ports! 
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RemoveStdlO ioS! 
END SUB! 
5 
SUB CreateStdIO (ports, results) STATIC! 

opt& - 2*165 

results - AllocMemS (48, opts) ! 

IF results - THEN ERROR 71 

POKE results + 8, 5! 

POKEL results + 14, ports! 

POKEW results + 18, 50! 
END SUB! 
! 
SOB RemoveStdlO (ioS) STATIC! 

IF ioS O THEN! 

CALL FreeMem(ioS, 48)1 

END IF! 
END SUB! 
1 
SOB CreatePort (port$, pri%, results) STATIC! 

opts - 2 A 16! 

bytes - 38 + LEN(port$)! 

ports = AllocMemS (bytes, opts) ! 

IF ports - THEN ERROR 71 

POKEW ports, bytes! 

ports = ports + 2! 

sigBit% - AllocSignal%(-l)! 

IF sigBit% = -1 THEN! 

CALL FreeMem (ports, bytes)! 
ERROR 7! 

END IF! 

sigTaskS = FlndTaskS (0)! 

! 

POKE ports +8,4! 

POKE ports + 9 , pri%! 

POKEL ports + 10, ports + 34! 

POKE ports + 15, sigBit%! 

POKEL ports + 16, sigTasks! 

POKEL ports + 20, ports + 24! 

POKEL ports + 28, ports + 20! 

FOR loop% - 1 TO LEN(port$)! 

chart - ASC(MID$(port$, loop%, l))f 
POKE ports + 33 + loop%, chart! 

NEXT loop%! 

CALL AddPort (ports) ! 

results = ports! 
END SOB! 
! 
SUB RemovePort (ports) STATIC! 

bytes = PEEKW (ports - 2)! 

sigBit% - PEEK (ports + 15)! 

CALL ReiriPort (ports) ! 

CALL FreeSignal(sigBit%)! 

CALL FreeMem (ports - 2, bytes)! 
END SUB! 



102 



Abacus 3.6 Fast and easy PRINT 



As you can see, you can use the new ConPrint much the same as 
you used the normal PRINT: 

ConPrint "displayed text" 

However, ConPrint works much faster than PRINT. Also, long 
lines of text are tailored to fit the width of the window. If the text is 
longer than the window is wide, the text wraps around to the next 
window line. You also have the following editor sequences available: 

Cl$ CSI (Control Sequence Introducer) 

C2$ Backspace (1 character to die left) 

C3$ Linefeed (1 line down) 

C4$ VTab (one line up) 

C5$ Formfeed (clear screen) 

C6$ CR (start of next line) 

C7$ SHIFT IN (caps) 

C8$ SHIFT OUT (normal) 

C9$ RETURN (end of line) 

These are the simplest editor text sequences. You add them to text 
strings using the plus sign character (<+>). For example: 

ConPrint "Hello, Worker ! "+C9$ 

Console Device can do a lot more. The following editor sequences 
begin immediately after the control sequence introducer (Cl$). The 
editor sequences are as follows: 
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Cl$ + 



"M@" 

"[n]A" 

"[n]B" 

"[n]C 

"[n]D" 

"[n]E" 

"[n]P 

"tn];[n]H" 

ttTH 

"K" 

"L" 

"M" 

"MP" 

"MS" 

"[n]T 

"20h" 
"201" 
"M;[n];[n]m" 



"Mt" 

"Mu" 

Mx" 



Definition 



Insert [n] characters in this line 

Cursor [n] lines up 

Cursor [n] lines down 

Cursor [n] characters right 

Cursor [n] characters left 

Cursor [n] characters down + to start of line 

Cursor [n] characters up + to start of line 

Cursor to line [n], column [n] 

Clear screen from current cursor position 

Delete line at current cursor position 

Insert line 

Delete line 

Delete character to right of cursor 

Scroll M lines up 

Scroll [n] lines down 

Set mode 

Reset mode 

Graphic mode 

Style: 

0=normal 

l=bold 

3=italic 

4=underline 

7=reverse 

Foreground colon 

30-37 

Background colon 

40-47 

Window height in raster lines 

Line length in pixels 

Indent [n] characters 

M lines spacing from top border 
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3.7 Multitasking INPUT 



The INKEY$, LINE input and INPUT commands are Amiga- 
BASICs ways of accepting user input These commands do their best, 
but that isn't enough sometimes. For example, try using LINE INPUT 
to ask for a street address. If the user makes a mistake, he can only 
correct it by pressing the <Backspace> key until he erases the error, and 
retyping the rest of the entry. LINE INPUT and INPUT support no 
cursor movement, and have no editing facilities like Undo, Insert or 
Delete. This is fine if you prefer to avoid user-friendliness, but pro- 
grams should be made as friendly to the user as possible. 

This input programming can create problems: Try to design a screen 
mask around LINE INPUT. It can't be done: LINE INPUT doesn't 
allow length limits to input, so it accepts any number of characters. 
This could move the cursor past the mask, destroying the screen mask 
and other input areas. Also, this input doesn't provide margin for error 
in the next input. For example, an address file program asks you for the 
city. You enter <Grand Rapids MI> and press the <RETURN> key. 
The next input asks for the state-but you've already entered the state 
name. Another major problem with LINE INPUT is that you cannot 
freely choose data fields in a mask, so mistakes are unavoidable. The 
only way to check for errors is to have the program ask, "IS ALL 
DATA CORRECT (Y/N)?" If there are errors, the user has to enter the 
data all over again. 

Now that you have heard about the disadvantages, here is an alternative 
program that solves these difficulties. Here's how it works. You create a 
screen mask into which you place all the necessary data fields with the 
MField command. You can start your fields at any point on the screen 
using X- and Y-coordinates. You can also set your fields to any length 
up to a maximum of your screen's width. Finally, you can specify 
whether the system should accept a normal (alphanumeric) input or just 
numeric input. In this last case, the Amiga accepts numbers and ignores 
all other input. 

The MField command syntax: 

MField nr%, x%,y%, wid%, max%, nam$, typ$ 

nr% field number (0-40) 

x% , y % starting coordinates of field 

wid% field width in characters 

max% maximum input length 

nam$ field name (e.g., STREET) 

typ$ "S" = alphanumeric input 

"VAR" = numbers only 
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This method lets you set up your screen mask freely. Every MField 
command draws an orange border around the entry and displays the field 
name on the screen. 

Immediately after the screen mask appears, the user can begin text or 
numeric input. Clicking on the desired field with the mouse calls an 
orange cursor. The user's entry appears in that field. The Amiga 
supports this new input control 100%. 

The user has editor commands available in this input system. Like 
LINE INPUT, MField uses the <DEL> key and the 
<BACKSPACE> key. These delete characters to the left or to the right 
of the current cursor position. The cursor keys move the cursor to the 
left or right. Text inserted at the current cursor position moves the 
remaining text to the right. Pressing <SHIFT> and a cursor key moves 
the cursor to the beginning or end of the text. The <Right AmigaxQ> 
key combination acts as the <UNDO> function, restoring the previous 
input If the user enters more text than provided for in the field, the text 
scrolls to the left and the right edge opens up space for the new letters. 
That is, until you reach the maximum input length. You see, you can 
even enter text longer than the field window. 

The Check command lets you view data in the individual fields. You 
can search for fields and remove the ones you don't want anymore: 

Check nr%, text$, mode% 



nr% 


field number 


text$ 


field contents 


mode% 


1 = display 




= display and remove field 



The following program demonstrates the options offered by these pow- 
erful and user-friendly commands: 

' ######################1 

'# #11 

*# Program: Newlnput #5 

'# Author: tob #! 

'# Date: 11/08/87 #fl 

'# Version: 2.0 #f 

'# #! 

' ######################1 

! 

DECLARE FUNCTION AllocMemS LIBRARY! 

DECLARE FONCTICN AddGadget% LIBRARY! 

! 

LIBRARY "exec. library"! 

LIBRARY "intuition. library"! 

LIBRARY "graphics . library" ! 

! 

var: •* variables! 

DIM SHARED reg&(40,l)5 
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demo: •* Demonstration of Newlnput by Building a Maskfl 
CLS5 
PRINT TAB (20); "Personnel Screen"H 

* 

•* Build Field Masksfl 

MField 1, 5, 30, 35, 40, "First Name ", "S"H 
MField 2, 5, 45, 35, 50, "Last Name ", "S"f 
MField 3, 5, 60, 7, 7, "Street ", "VAR"H 
MField 4, 165, 60, 26, 40, "», "S"H 

MField 5, 5, 75, 30, 30, "City, State", "S"l 
MField 6, 340, 75, 6, 11, "Zip.", "S"H 
1 

LOCATE 15 2011 

PRINT "When finished, please press RETURN! "5 
LINE INPUT pause$H 

f 

'* Evaluate Fieldf 

Check 1, First$, Of 

Check 2, Last$, 05 

Check 3, Number$, Of 

Check 4, Street$, Of 

Check 5, CityState$, OH 

Check 6, Zip$, OH 

CLS1 

PRINT " . . .the following is the data you inpuf'H 
PRINT "which can now be used in other routines: "H 
PRINTS 

PRINT "Last and First Name: "; Last$;", "; 
First$fl 

PRINT5 

PRINT "Address:"! 

PRINT " ";Number$;" ";Street$5 

PRINT " ";CityState$;" ";Zip$H 

f 

FOR t% « 1 TO 100001 

NEXT t%5 

'* Simultaneous Evaluation! 
CLSfl 

MField 1, 30, 40, 10, 40, "Test field. Enter 
some text. ", "S"H 

WHILE INKEY$ = nn f 

Check 1, test$, 11 

LOCATE 1,111 

PRINT "Current Contents: ";test$;" "f 
WEND5 
1 

Check 1, test$, Of 
LOCATE 9, If 
PRINT "Final results: ";test$H 

1 

LIBRARY CLOSEf 

ENDf 
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5 

SUB MField (nr%, x%, y%, wid%, max%, nam$, typ$) STATIC5 
SHARED Er%5 * 

colB% = 35 

typ$ - UCASE$ (typ$)5 
1% = LEN(nam$)5 
IF regS (nr%, 0) - THEN5 

memS = 82 + 2*max% + 205 

opts - 2 A 165 

adds ■=- AllocMemS(memS, opts) 5 

IF adds - THEN5 
Er% = II 
EXIT S0B5 

ELSE5 
Er% = 05 

END IF5 

POKEL adds, memSfl 

5 

IF typ$ = "VAR" THEN! 
typ% - SH8025 

ELSE5 

typ% = 25 

END IF5 

5 

chx% - PEEKW (WINDOW (8) + 58)5 

chy% - PEEKW (WINDOW (8) + 60)1 

FWidth% = wid% * chx%5 

FHeight% - chy%5 

5 

CALL Move (WINDOW (8), x% - 1, y% - 1 + chy%)5 

PRINT nam$;5 

5 

x% - x% + 1% * chx%5 

strs - adds + 41 

infs - strs + 445 

bfls - strs + 825 

bf2s •» bfls + max%5 



'* Initialization of Structure! 


POKEW 


strS 


+ 


4 , 


x%5 


POKEW 


strS 


+ 


6 , 


y%5 


POKEW 


strS 


+ 


8 , 


FWidth%5 


POKEW 


strS 


+ 


10, 


FHeight%5 


POKEW 


strS 


+ 


14, 


typ%5 


POKEW 


strS 


+ 


16, 


45 


POKEL 


strS 


+ 


34, 


infs5 


POKEL 


infS 




/ 


bfls5 


POKEL 


infs 


+ 


4 , 


bf2s5 


POKEW infS 


+ 


10, 


max%5 



5 

'* Add Gadgets! 
regs (nr%, 0) - adds 5 

p% = AddGadget% (WINDOW (7), strS, 65535S)5 
LINE (x%-2, y%-2) - (x% + FWidth%, y% + FHeight% + 
1), colB%, b5 

CALL OnGadget (strs, WINDOW (7), 0)5 
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END IF! 
END SOBS 
1 

SOB Check (nr%, NewText$, rod%) STATICI 
count% - 01 
NewText$ = ""! 
IF regS(nr%, 0)0 THEN! 
adds - regS(nr%, 0)1 
strS - adds + 4! 
bf IS - strS + 821 
art - PEEKW (strS + 4)1 
y% - PEEKW (strS + 6)5 
w% - PEEKW (strS + 8) I 
h% «• PEEKW (strS + 10)11 
typ% = PEEKW (strS +14)5 
1 

in% - PEEK (bflS)I 
WHILE in% O 01 

NewText$ - NewText$ + CHR$(in%)l 
count% - count% + II 
in% - PEEK (bflS + count%)I 
WEND! 

I 

IF md% - THEN! 

CALL RenoveGadget (WINDOW (7), strS)! 

sizes - PEEKL (adds)l 

CALL FreeMem(addS, sizes)! 

0, 





LINE 


(x%-2, y%-2) - (x% + w%, y% + h% + 1), 




bm regS(nr%, 0) = 01 

END IF! 




END IF! 






END SUB! 




iable. 


5 reg&() 


gadget starting address storage 




nr% 


field number (0-40) 




x%,y% 


field coordinates 




wid% 


field lengths in characters 




max% 


maximum input length 




nam$ 


field name (prompt) 




typ$ 


field type ( M S"=string, "VAR"=numbers) 




colB% 


border color 




1% 


prompt length 




mem& 


size of necessary memory block 




opt& 


memory options; 2 16 = CLEAR_MEMORY 




adds 


starting address of memory block; 0=error 




Er% 


=l;OUT OF MEMORY flag 




typ% 


$802 = "VAR\ 2 = "S" 




chx%, chy% 


width and height of active character set 




FWidth% 


data field width 




FHeight% 


data field height 




str& 


starting address of gadget block 




inf& 


starting address of Strlnfo block 




bfl& 


starting address of input buffer 
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bf2& starting address of Undo buffer 

P ? ^. Position at which new gadget should be inserted 

w%, h% lifce FWidth% and FHeight% 

in% ASCII code of character read by bfl& 

NewText$ text from text buffer 

count % counter 

md% 0=remove gadget; l=read input only 

sizes size of free memory 

Proeram SS ^TT uses m ? lement of *• Intuit ion Ubrar y ^own as a 

destcrintinn £%*"' Gad f? ^ e,ementS v****™* *> the mouse pointer. They 
description perform such functions as allowing size changes and movment of 
windows. One of these gadgets, the string gadget, allows text input. 

The "MField" SUB initializes a gadget data structure with the corres- 
ponding parameters, into which your values integrate. This data struc- 
ture takes the active gadgets listed by AddGadget ( ) and places them 
in your output window. 

The "Check" SUB reads the data structure field containing the current 
input Check" transfers this input to the variable NewText$ and 
returns the system to the main program. If mode =0, then Remove- 
Gadget ( ) takes the gadget from the system list 

These are the main components of the SUBs. After these actions 
MField" displays a prompt at the data field's beginning. Move ( ) 
allows cursor movement in either the X- or Y-directions, and text dis- 
play through PRINT. "MField" also draws a border around the data 
field. You can easily select data fields with the mouse pointer. 

This sample program creates a mask of 6 fields. You can define up to 
40 fields if you wish, or even increase the number of fields using the 

dim SHARED statement 

After defining the mask, the Amiga waits for the user to press the 
<RETURN> key at the end of an entry. The user has plenty of time to 
enter data m the fields, or click gadgets. If you press <RETURN> for 
an empty set of data fields, the program continues, "check" places in- 
put into the appropriate variables. If md%=0, the program removes the 
gadgets (this happens before the program can exit). The Amiga displays 
the data, and a second example begins. 

This test should show field control during input. This is done by 
Check with md%=l. This way, a menu can be displayed as soon as the 
user writes data in a previously set data field. Check with md% = 
deletes the gadget at the end. The current output changes to a blank 
space for input (" "). The BACKSPACE command redraws the screen 
when input isn't appearing fast enough. 
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Abacus 4. User-friendliness 



4 . User-friendliness 



A few years ago, the term "user-friendly" didn't exist in computing. The 
user had to type in exactly what he wanted the computer to do. If he 
entered the data incorrectly, the computer returned an error message (if 
the user was lucky). The manual was a necessity for the user to survive 
computing. 

As computers became more common in the home, software and 
hardware designers helped shape the technology that brought about user- 
friendly interfaces between the computer and user. Intuition is the 
Amiga's user interface, using windows, icons and the mouse as user 
input. 

User-friendly program design is important to the developer, and even 
more important to the user. Most users prefer a program mat makes 
operation simple and clear, without having to even pick up a manual. 
In addition, user-friendly programs are more attractive to the consumer, 
and may mean more profits for the developer. 

This chapter shows you how you can make your programs as user- 
friendly as possible. This sort of programming focuses on input, 
selection and control. Often an icon or other self-expanatory graphic 
helps the user to understand program operation better. In any case, most 
programming for user response should be mouse-based, and not just for 
starting and quitting the program. Here are some easily implemented 
functions that you can include in your own programs. 
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4.1 Other input 



Since not everything can be done by menus, there must be some alter- 
native forms of access. To see a few of these other forms, put your 
Workbench diskette in your disk drive and open the main directory. 
Double-click the Preferences icon. Preferences contains user- 
defined parameters. When you turn on the Amiga, the Workbench disk- 
ette defines these parameters as it loads. 

The Preferences screen contains sliders which let you set the 
colors. The time and date gadgets in this screen have sliders which you 
click on to change the hour, day, etc. There are also selectors that you 
click for changing from 60 characters per line to 80 characters per line. 
Also, this screen has many gadgets that you can click for saving or 
cancelling your changes. The Change Printer screen uses many 
table gadgets for selecting printer options. 



4.1.1 Sliders 



Sliders are just one kind of input element You can have a slider repre- 
sent any value within a range of numbers. You have already seen a 
practical application of sliders in color assignment The color sliders in 
Preferences can handle any values between and 15. You could 
write three INPUT commands to read numbers for color input but the 
sliders are much easier to use: All you do is move a slider left to de- 
crease the amount of that color, and right to increase the amount of that 
color. 

Before you look at the sample program below, there are a few facts you 
should know about sliders: 

Sliders must have their size and position in the window set In addition, 
you must establish the scaling or the text that must appear. 

The organization of a slider is very important When you are clear about 
the coordinates and the orientation of the slider, then the slider can 
appear on the screen. Simply drawing the slider isn't enough. The pro- 
gram should be programmed so that the click of the left mouse key 
changes the slider's setting. This data could be placed in an indexed 
array, particularly when multiple sliders are used in one program. 

The above items can all be accomplished with a SUB program which 
places the data into corresponding variable arrays. The first slider is de- 
fined from this data. 
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The second point to consider is mouse reading. This occurs through an 
interrupt routine which checks for a pressed left mouse button while the 
pointer is within a specific range. If this is the case, the correspond-ing 
slider knob (loaded as a bob) moves to the new position. 

' Definition of a Horizontal Slider Controller! 
' with x Positioning! 



Variables : 5 
5 

DEFINT a-z5 

FileName$=" Slider2 " 5 

Text$="Blue Value "5 

NumClicks=01I 

MaxClicks=20fl 
5 

DIM SHARED ClickTable(MaxClicks,3)5 

DIM SHARED ClickValue (MaxClioks) 5 

DIM SHARED ClicklD(MaxClicks)! 
5 

Main:! 
5 

ON MOUSE GOSOB CheckTablefl 

ON TIMER (.5) GOSUB ColorSetf 

TIMER ONB 
5 

DefMoveScale 13,6,100,16,0 'with Nothing! 

DefMoveScale 13,8,100,16,1 'with Scaling! 

DefMoveScale 13,10,100,60,2 'with TextU 
5 

LINE (157, 100) -(477, 120), 2, bf I 

LOCATE 1,15 

PRINT "Slider Controls: "5 

PRINT "1st Control => Red value, without Enhancements "5 



PRINT "2nd Control =>> Green value, with Scaling (16 

3rd Control -> Blue value, with Text ahead of the 
(Any Key - End) "5 






5 
WHILE INKEY$-""5 

SLEEP 5 
WEND5 
5 

OBJECT. OFF! 
END! 
5 
5 

CheckTable:! 
5 

IF NumClicks=0 THEN RETURN5 
5 
FOR i=l TO NumClicks5 
mstat=MOUSE(0)5 
mx=M0USE(l)5 
my=MOUSE(2)5 

IF mx>=ClickTable(i,0) THEN! 
IF my>=ClickTable(i,l) THEN! 
IF mx<=ClickTable(i,2) THEN5 
IF my<=ClickTable(i,3) THEN5 
5 
IF ClickID(i)=l THEN! 

ClickValue (i) - (mx-ClickTable (i, 0) ) /4! 
SetSwitchScale i5 



115 



4. User-friendliness Amiga Tricks and Tips 



END IF! 
! 
END IF! 
END IF! 
END IF! 
END IF! 
NEXT i! 

IF MOOSE (0)— 1 THEN CheckTable! 
! 

RETORN! 
5 
' Set new Color! 

' 5 

! 

ColorSet : f 
! 
r!=ClickValue (1) /100! 
g!-ClickValue (2) /100! 
bi-ClickValue (3) /100! 
PALETTE 2,r!,g!,b!! 
! 

RETURN! 
! 

' Define Slider-counter! 
. f 

! 

SOB DefMoveScale (sx, sy,xd,po,mo) STATIC! 
! 
SHARED NumClicks,FileName$f 

! 
x=sx*9 'Coordinate for Line! 
y=sy*8! 
! 
LINE (x, y) - (x+xd*4+20, y+12) , , b! 
! 

'Extras desired?? 
11 
IF mo AND 1 THEN! 

FOR sk-x TO x+xdM+12 STEP (xd*4+20)/16 '16 Units! 
LINE (sk,y)-(sk,y+2)! 
LINE (sk,y+12)-(sk,y+10)! 
NEXT sk! 
END IF! 
! 
IF mo AND 2 THEN! 
SHARED Text$! 

LOCATE sy+l,sx-LEN(Text$)-l! 
PRINT Text$! 
END IF! 
! 

•ClickValue entry in Table ! 
1 
NumClicks-NumClicks+1! 
ClickTable (NumClicks, 0) -x+6! 
ClickTable (NumClicks, 1) -y! 
ClickTable (NumClicks, 2) -x+xd*4+6! 
ClickTable (NumClicks, 3) =y+12! 
ClickID (NumClicks) =1 '1 as current setting for Slider! 

ClickValue (NumClicks) to 'Beginning value redefined by 

! 

OPEN FileName$ FOR INPUT AS 1! 
OBJECT . SHAPE NumClicks , INPUT$ (LOF ( 1 ) , 1 ) ! 

CLOSE 1! 
! 
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OBJECT. Y NunClicks,yfl 

SetSwitchScale NumClicksI 

OBJECT. ON NumClickafl 
1 

END SUBf 
H 
* Set Slider-counterfl 

SOB SetSwitchScale (Nr) STATICS 
1 
OBJECT. X Nr, ClickTable (Nr, 0) +4*ClickValue (Nr) Hi- 
ll 
END SDBH 



Arrays clickiD object identification 

ClickTable coordinates of click range 
ClickValue slider value 

Variables b blue slider value 

NumClicks previously defined click object 

MaxClick possible number of click objects 

FileName filename of bob used for slider 

Nr SUB variable; number of set slider 

Text text display in slider 

g green slider value 

i floating variable 

mo SUB variable; slider position 

mstat mouse status during reading 

mx, my mouse coordinates 

po SUB variable; slider position 

r red slider value 

sk floating variable scaling 

sx, s y SUB variable; slider column coordinate 

x, y coordinate scaling 

xd SUB variable; slider width 

First the bob's filename is assigned to a string variable so it can be 

Program changed later. The counters for the clickable area and the maximum 

description number initialize, then the variable arrays initialize. Also, the text for 

the description of the last slider knob goes into a variable. The name 

corresponds to the subroutine which draws a slider. 

The main section of the program reads the mouse through the 
CheckTable subroutine, and the color display appears after a half- 
second interrupt. Then the slider is set up according to the predefined 
parameters on the screen after calling the SUB routine containing these 
parameters. To observe the color changes, the program draws a colored 
box in the center of the window. Several lines of text appear on the 
screen explaining the individual sliders. This is done through PRINT 
statements. The program jumps to a loop which exits when any key is 
pressed which has a specific keycode. The slider bobs turn off and the 
program ends. 
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c . . The first subroutine in the program, the CheckTable routine, tests 

Subroutines for whether the mouse pointer lies within the slider area. This test 

occurs when a mouse button is pressed. Only then can the program 

continue. Here ClickValue computes the pointer coordinates, and 

the slider moves in the direction of the mouse pointer. 

One brief but very important subroutine handles the position reading. 
This is the Color Set routine, called every half second by the T imer 
function. This routine sets the values in the array ClickValue ( ) to 
the corresponding color values. Since the slider knobs are 100 pixels 
wide, the color value is divided into 16 sections. 

Define Slider-Counter :Def MoveScale is the most impor- 
tant routine in this program. This routine is a SUB routine for easy 
access from the main program. The parameters appear in the main 
program after the command word, and must not be defined as variables 
beforehand. The routine itself computes the pixel positions of the box 
in which movement takes place. It indicates and tests for scaling within 
a mode. If so, a loop draws 16 divisions of color in the slider box, 
giving you 16 graduations of color. The second mode enables the slider 
text descriptions. You can use both modes at the same time if you 
wish. We suggest that you do not give the text as part of the parameters 
since the text is optional. Instead, define the text in the main program 
as a normal string variable, and declare it as a shared variable to the 
SUB routine. 

Next the graphic generation occurs. Now the comer values of the boxes 
must be placed in a table. The program increments the number of pre- 
viously defined sliders. Then the program stores the X- and Y-values, 
orientation and identifier for the sliders (more on this below). The most 
important data is the slider's position. 

Next, you need an object to use as slider knobs. The following program 
creates a simple bob and places it on diskette for slider knob data. 

RESTORE SliderDatal 

datastring$«=""I 

I 

FOR i=l TO 130U 

READ a$I 

a$-"SH"+a$I 

data3tring$-datastring$+CHR$ (VAL (a$) ) I 
NEXT! 
I 

OPEN "Slider2" FOR OUTPDT AS 15 
I 

PRINT#1 , datastring$; I 
5 

CLOSE II 
I 
I 

SlidsrData:5 
I 

S a J a 2a 3 2'2' 3 ' ' ' ' ' ' ' 1 ' ff '°'0'F,ff,e6,6,if,ff5 

DATA F0,0,3F,FF,F8,0,7F,FF,FC,0,7F;fF,FC,0;7F,FF5 

DATA FC,0,3F,FFF8,0,1F,FF,F0,0,F,FF,E0,0,1,FF,0,0,0,0,0I 
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DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Of 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0, 05 
DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, Of 



Now the bob file can be opened and the program can set its Y-coor- 
dinates. A SUB routine sets the X-coordinates of die shifter position. 

The value itself conies from the box position, multiplying the value 
contained in ClickValue by 4. This quadrupling is necessary since 
the shifter knob has more than 16 positions. The main disadvantage to 
this program is that you can't set a really precise color setting as you 
could with Preferences. The central point of the slider marks the 
value 7. 

' Definition of a Vertical Slider Controller ! 
' with y Positioning! 



Variables:! 
! 

DEFINT a-z! 

FileName$»"Slider2 " ! 

Text$-"Blue"! 
! 

NunClicks=0! 

MaxClicks-20! 
! 

DIM SHARED ClickTable (MaxClicks, 3)! 

DIM SHARED ClickValue (MaxClicks) ! 

DIM SHARED ClickID (MaxClicks) ! 
! 

Main : ! 
! 

ON MOUSE GOSUB CheckTable! 

ON TIMER (.5) GOSUB ColorSet! 

timer on! 

! 

DefMoveScale 12, 6,1 00, 16,0 ' with Nothing! 

DefMoveScale 16,6,100,0,1 'with Scaling! 

DefMoveScale 20,6,100,100,2 'with Text! 
! 

LINE (250, 80) -(280, 116), 2, bf 5 
! 

LOCATE 1,2711 

PRINT "Slider Controls:"! 

LOCATE 3,27! 

PRINT "1st Control -> Red value,"! 

PRINT TAB (40) /"without Enhancements"! 

PRINT TAB(27);"2nd Control -> Green value,"! 

PRINT TAB (40); "with Scaling (16 Units)"! 

PRINT TAB (27); "3rd Control => Blue value,"! 

PRINT TAB (40); "with Text above it"! 
! 

WHILE INKEY$=""! 
SLEEP! 

WEND! 
! 

OBJECT. OFF! 
END! 

! 
! 

CheckTable:! 
! 

IF NumClicks=0 THEN RETURN! 
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f 

FOR i-1 TO NumClicksI 
mstat-M0OSE(0)fl 
mx^OaSE(l)^ 
my-M0USE(2)H 

IF mx>-ClickTable(i,0) THEOT 
IF my>-ClickTable(i,l) THENH 
IF mx<=ClickTable(i,2) THENH 
IF my<-ClickTable(i,3) THENH 

1 

IF ClickID(i)-2 THEM 

ClickValue (i) - (my-ClickTable (i, 1) ) 1 
SetSwitchScale il 
END IFfl 
I 
END IF5 
END IFfl 
END IFfl 
END IFfl 
NEXT if 
IF MOOSE (0)— 1 THEN CheckTablefl 

f 
RETORNf 

' Set new Colorll 
. 5 

1 
ColorSet : fl 

r!-ClickValue (1) /1005 
g ! -ClickValue (2) /1005 
b ! -ClickValue (3) /100H 
PALETTE 2,r!,g!,b!5 

RETORM 
' Define Slider-counterfl 



1 

SUB DefMoveScale <sx,sy,yd,po,mo) STATIC5 

SHARED NumClicka,FileName$5 

f 
x=sx*8 'Coordinates for Line *Draw 10 by 605 

y-sy*85 

LINE (x,y) - (x+20,y+12+yd) , ,bf 

'Extras desired?1I 

IF no AND 1 THEN ' ScalesH 

FOR sk=^ TO y+yd+8 STEP (yd+12) /16 '16 Units! 
LINE (x,sk)-(x+2,sk)H 
LINE (x+20,sk)-(x+18,sk)fl 
NEXT ski 
END IFfl 

IF mo AND 2 THEN ' TextH 
SHARED Text$2 
sy=sy-LEN (Text$) -111 
FOR txt-1 TO LEN(Text$)5 
LOCATE sy+txt,sx+2H 
PRINT MID$(Text$,txt,l)l 
NEXT txtH 
END IF1 
1 
•ClickValue entry in Table H 

NuroClicks-NunClicks+lU 
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ClickTable (NumClicks, 0) -x! 

ClickTable (NumClicks, 1) -y+85 

ClickTable (NumClicks, 2) =x+20! 

ClickTable (NumClicks , 3) -y+yd+8! 

ClickID (NumClicks) -2 '1 as current setting for Slider! 

ClickValue (NumClicks) -poll 

MOOSE on! 
5 

OPEN FileName$ FOR INPUT AS 15 
OBJECT . SHAPE NumClicks , INPUT$ (LOF ( 1 ) , 1 ) 5 

CLOSE If 
! 

OBJECT. X NumClicks, x-1 ! 

SetSwitchScale NumClicks! 

OBJECT. ON NumClicks! 

! 
END SUB! 
! 

' Set Slider-counter! 
5 

! 

SOB SetSwitchScale (Nr) STATIC! 
! 
OBJECT . Y Nr, ClickTable (Nr, 1) +ClickValue (Nr) -8! 
! 
END SOB! 

The second listing here is similar to the first. The major difference is 
Program that this program draws a vertical slider instead of a horizontal slider. 

description The other sections of the program are identical to the earlier program: 
The color initialization, the mouse position reading and the main 
program are the same. If you wish, you can combine both programs 
with one another. You could have one window containing two different 
kinds of sliders. Copy the two SUB routines Def Move: and Set- 
Switch: of one type into the program containing the sliders of the 
other type. Finally, include the CheckTab loop from the other 
program 

The most practical method is to combine click areas with one another. 
The main section of the program contains a testing loop, and you could 
add more definitions for different fields and gadgets. 



4.1.2 Table selection 



The abovementioned sliders show how you can select one value in a 
given range. This range was linear, or an array of possible elements. 
There are many times when this form of selection doesn't work. Some- 
times you need just a 10, not a 9.6. Or you may want a set of texts 
from which the user can select one text. 

Tables perform this task. Most of these tables contain a number of 
values grouped under a certain category. Or tables may only contain two 
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or three selections. The Text gadget in the Preferences window 
is a prime example of a table; it has only two options. 

The first program should display all the elements of a table next to one 
another. Another displays the values under each other, something like 
the sliders. 

To make the most of flexibility, the concrete elements of the table go 
into memory as strings, so you can use text as well as numbers. 

The table definition is similar to that SUB routine that stores the corner 
pixel of the table in the ClickTable array (see Section 4.1.1). Again 
you have the power to combine this function with other functions such 
as the sliders. In this case, a few other values are stored: The elements 
of the table which can be used later as a response in the main program; 
and the program's storage of the maximum number of characters placed 
in a table. The last one lets the program know how far the mouse 
pointer should go near the upper left comer. 

To display the prepared table, the subroutine must place all text into a 
box and center the text in this box as much as possible (it looks better 
this way). When the entire table appears, the main program can then 
wait for a keypress. This stops the program and tells you which table 
point was last looked for. 

* Definition of a Click Tabled 
. j 

! 

Variables : ! 
! 

DEFINT a-z! 

MaxNum=2 * a maximum of 3 Tables! 

MaxEl=10 * with a maximum of 11 Elements! 

TabNum=0! 

CharWid-8 ' CharacterWidth - 80 Width-8 ; 60 Width=10! 

! 
DIM SHARED MaxLen (MaxNum) ! 
DIM SHARED ChoseTable$ (MaxNum, MaxEl) ! 
DIM SHARED ClickTable (MaxNum, 3) U 
DIM SHARED ClickID (MaxNum) ! 
DIM SHARED ActEl (MaxNum) ! 

! 

. , 

! 

Functions : ! 
! 

DECLARE FUNCTION Moves LIBRARY! 

LIBRARY "graphics. library"! 
! 

Main:! 
! 

PRINT "End Program by Pressing any Key."! 

RESTORE TableTest! 

DefTabY "Table Test", 10, 5, 3! 
! 

ON MOUSE GOSUB CheckTable! 

MOUSE ON! 
! 

WHILE INKEY$=""5 
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SLEEPS 
WEND! 
1 
LOCATE 12,111 
PRINT "Item";ActEl(l);"was selected with a value of: ";fl 



PRINT ChoseTable$(l,ActEl(l))fl 
1 
MOUSE OFFS 

ENDS 



5 

CheckTabletS 
1 
IF TabNum-0 THEN RETURN! 

FOR loop=l TO TabNumS 
mx=MOUSE(l)f 
my=M0USE(2)S 

IF mx>»ClickTable(loop,0) THENS 
IF my>~ClickTable (loop, 1) THENS 
IF mx<=ClickTable(loop,2) THENS 
IF myOClickTable(loop,3) THEN! 
f 
IF ClickID(loop)=3 THEN! 

NumAct=INT ( (mx-ClickTable (loop, 0) + 
MaxLen (TabNum) ) /MaxLen iTabNum) ) S 

IF NumActOActEl (loop) THEN MakeAct 

NumAct,loopS^ „„„ 
END IFS 
5 
END IFS 
END IFS 
END IF1I 
END IFfl 
NEXT loop! 

IF MOUSE (0)— 1 THEN CheckTablef 
1 
RETURN! 

. j 

I 

SUB DefTabY(TableName$,x,y,NunAot) STATICS 

SHARED TabNum, CharWidS 
1 
TabNum=TabNum+lS 
NumEl=lS 
1 
loopread:! 

READ ChoseTable$ (TabNum, NumEl) S 
IF ChoaeTable$ (TabNum, NumEl) <>"*" THEN! 
1=LEN (ChoseTable$ (TabNum, NumEl) ) *ChazWidS 
IF l>MaxLen (TabNum) THEN MaxLen (TabNum) =15 
NumEl-NumEl+lf 
GOTO loopreadf 
END IFH 
1 

NumElements (TabNum) "NumEl-lS 
1 
xyPTAB x*CharWid,y*8S 
PRINT TableName$S 
ypos=y*8+10S 
S 
FOR loop=l TO NumElements (TabNum) 1 

xpos=x*CharWid+ (loop-1) * (MaxLen (TabNum) +2) S 



123 



4. User-friendliness Amiga Tricks and Tips 



xtab- (MaxLen (TabNum) /CharWid- 
IEN <ChoseTable$ (TabNum, loogl) ) *CharWid/2! 



LINE (xpos-l,ypos)-(xpos+MaxLen (TabNum) + 
l,ypos+10),l,b! 

NEXT loop! 
! 

' Put Value in Table! 
! 

ClickTable (TabNum, 0) -x*CharWid! 

ClicJcTable (TabNum, 1) -y* 8+1 15 

ClickTable (TabNum, 2) -x*CharWid+ (NumElements (TabNum) - 

ClickID (TabNum) -3 'Click Table! 

MaxLen (TabNum) =MaxLen (TabNum) +25 

IF NumAct>NumElements (TabNum) THEN ERROR! 

MakeAct NumAct, TabNum ! 
! 
END SOB! 



! 

SOB xyPTAB(x,y) STATIC! 

e&=MoveS (WINDOW (8) , x, y) ! 
END SOB! 

. f 

! 

SDB SetDrawMode (mode) STATIC! 
CALL SetDrMdS (WINDOW (8) , mode) 5 

END SDB! 

. 1 

! 

SOB MakeAct (NumAct, NumEl) STATIC! 

! 

x-ClickTable (NumEl , 0) ! 

yl=ClickTable (NumEl, 1) ! 

y2-<:iickTable (NumEl, 3) ! 

z«=ActEl (NumEl) 5 

SetDrawMode 2! 
! 

IF zOO THEN! 

LINE (x+(z-l)*MaxLen (NumEl) ,yl)-(x+z*MaxLen (NumEl)- 

Wirt" 

! 

ActEl (NumEl) =NumAct! 
LINE (x+(NumAct-l)*MaxLen (NumEl) ,yl)- 

'ieMwModW 1 (NUltE1) ~ 2 ' y2) ' ' bn 

! 

END SDB! 



TableTest:! 
! 

DATA "10"! 

DATA "20"! 

DATA "40"! 

DATA "80"! 

DATA "160"! 

DATA "3200"! 

DATA "64000"! 

DATA "*"! 
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Arrays 



Variables 



ChoseTable 

ClickID 

ClickTable 

ActEl 

NumElements 

MaxLen 

MaxNum 

MaxEl 

TableName 

NumEl 

CharWid 

NumAct 

1 

loop 
mx, my 
x, y 
xpos 
xtab 
ypos 



table text 

object identification 
coordinates of click range 
active element of a table 
number of elements of a table 
maximum length of table text 

maximum number of click fields 

maximum number of table elements 

SUB variable; table name 

SUB variable; number of elements in a table 

width of a character in pixels 

number of new active elements 

text length 

loop counter variable 

mouse coordinates 

SUB variable; table position 

SUB variable; positioning variable 

SUB variable; text tabulator 

SUB variable; Y-position for table text 



After all variables receive integer definitions, the maximum number of 
Program^ tables becomes 2 (this program only uses 1). Each table can contain up 

description to 10 elements. The program makes sure that no table was previously 
defined. The character width goes into a variable to ensure correct gra- 
phic output, then the arrays initialize. 

Since the text output is no longer in 8x8 font size, the 
graphics. library file must set the pixel orientation below the 
PRINT position. 

The DATA statements set the table definition through the read 
pointer. Then the DATA branches to the parameters Name, xpos, 
ypos and the current elements. 

The main program branches to the CheckTable routine when you 
press the left mouse button, then waits for a keypress. If you press a 
key, the last selected element on the table is displayed and the program 
ends. 

The table definition routine is an interesting one. After the character 
width setup and the previously defined tables, a loop forces the program 
to read DATA statements until the program finds an asterisk (this marks 
the end of the DATA lines). Since this means that all DATA is in, the 
title appears and the vertical position is moved down. Another loop 
computes the X-position of every element, based on the maximum 
width of a box and the current text width. All points are placed one 
below the next. Last, the program enters the corner point in the known 
field, and activates a preset element 
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Three very important subroutines follow. The first simplifies the use of 
the Moves function. The second routine changes the character mode. 
The third routine returns the currently active table point to normal and 
displays it in a new color. This display occurs through the character 
mode. When this is already active, it must first be deactivated, then the 
table points are reset and the corresponding element displayed To avoid 
problems with output in the main program, the character mode returns 
to normal status. 

The end of the listing contains the DATA statements with their num- 
bers. These lines end with an asterisk (*). 

Use the program below to create a vertical table: 

• Definition of a Click Table! 
. 5 

! 

Variables: 5 
! 

DEFINT a-z! 

MaxNum=2 ' a maximum of 3 Tables'! 

MaxEl=10 ' with a maximum of 11 Elements! 

TabNum=05 

CharWid-8 ' CharacterWidth - 80 Width-8 ; 60 Width-10! 

! 
DIM SHARED MaxLen (MaxNum) f 
DIM SHARED ChoseTable$ (MaxNum, MaxEl) ! 
DIM SHARED ClickTable (MaxNum, 3) ! 
DIM SHARED ClickID (MaxNum) ! 
DIM SHARED ActEl (MaxNum) ! 



! 

Functions : ! 
! 

DECLARE FUNCTION Moves LIBRARY! 

LIBRARY "graphics. library"! 
! 

Main:! 
! 

PRINT "End Program by Pressing any Key."! 
! 

RESTORE TableTest! 

DefTabY "Table Test", 20, 5, 3! 
! 

ON MOUSE GOSUB CheckTable! 

MOUSE ON! 
! 

WHILE INKEY$»"" ! 
SLEEP! 

WEND! 
! 

LOCATE 18,1! 

PRINT "Item";ActEl(l);"was selected containing the text: 



"win 



ITE ChoseTable$(l, ActEl (1))! 

! 

MOUSE OFF! 

END! 

! 

. , 

! 
CheckTable:! 

! 
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IF TabNum-0 THEN RETURNS 
I 

FOR loop-1 TO TabNumS 
mx-MOOSE<l)S 
my-MOOSE(2)S 

IF mx>-ClickTable (loop, 0) THEM 
IF my>K:iickTable(loop,l) THEN! 
IF mx<K:iickTable(loop,2) THENS 
IF my<-ClickTable(loop,3) THENS 
S 
IF ClickID (loop) -4 THENS 

NumAct-INT ( (my-ClickTable (loop, 1 ) +10) /10) S 

IF NumActOActEl (loop) THEN MakeAct 

NumAct,loopS_ 

^TWD IFS 

S 
END IFS 
END IFS 
END IFS 
END IFS 
NEXT loop? 
S 
IF MOOSE (0)— 1 THEN CheckTableS 

RETURNS 

s 

s 



s 

SOB DefTabY <TableName$,x,y,NumAct) STATICS 

SHARED TabNum,CharWidS 
S 
TabNunHTabNum+lS 
NumEl-lS 

loopread:S 
READ ChoseTable$ (TabNum, NumEl)S 
IF ChoseTable$ (TabNum, NumEl )<>"*" THENS 
1"LEN (ChoseTable$ (TabNum, NumEl) ) *CharWidS 
IF l>MaxLen (TabNum) THEN MaxLen (TabNum) =15 
NumEl=NumEl+lS 
GOTO loopreadS 
END IFS 
S 

NumElements (TabNum) -NumEl-lS 
S 
xyPTAB x*CharWid,y*8S 
PRINT TableName$S 
S 

FOR loop-1 TO NumElements (TabNum) S 
xpos=x*CharWidS 
ypos=y * 8+loop* 1 S 
COLOR IS 
SetDrawMode OS 
xyPTAB xpos,ypos+8S 
PRINT ChoseTable$ (TabNum, loop) S 
LINE (xpos-l,ypos)-(xpos+MaxLen (TabNum) + 
l,ypos+10),l,bS 
NEXT loopS 
S 

' Put Value in TableS 
S 
ClickTable (TabNum, 0) =x*CharWidS 
ClickTable (TabNum, 1) ■=y*8+HS 

ClickTable (TabNum, 2) =x*CharWid+MaxLen (TabNum) S 
ClickTable (TabNum, 3) -y*8+9+NumElements (TabNum) *10S 
ClickID (TabNum) =4 'Click TableS 
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IF NumAct>NumElements (TabNum) THEN ERROR? 

MakeAct NumAct, TabNum ? 

SetDrawMode 1? 
? 
END SOB? 



SOB xyPTAB(x,y) STATIC? 
e&-Move& (WINDOW (8) ,x,y) ? 

END SOB? 

5 



—5 



? 

SUB SetDrawMode (mode) STATIC? 
CALL SetDrMdS (WINDOW (8) ,mode) ? 

END SOB? 

. f 

? 

SOB MakeAct (NumAct, NumEl) STATIC! 

? 

xl-ClickTable (NumEl, 0) ? 

y=ClickTable (NumEl ,1)1 

x2=ClickTable (NumEl, 2) ? 

z=ActEl (NumEl) ? 

SetDrawMode 2? 
? 

IF ZOO THEN? 

LINE (xl,y+(z-l)*10)-(x2,y+8+(z-l)*10),,bf? 

END IF? 
? 

ActEl (NumEl) -NumAct? 

LINE (xl,y+ (NumAct-1) *10)- (x2,y+8+ (NumAct-1) *10) , ,bf ? 

SetDrawMode 1? 
? 
END SOB? 

? 

. f 

? 

TableTest : ? 
? 

DATA "I will test"? 

DATA "I will not test"? 

DATA "I am not done yet"? 

DATA "Nothing from Something"? 

DATA "End"? 

DATA "Longer Test for this Program"? 

DATA "Still Another Line"? 

DATA "*"? 



4.1.3 Scrolling tables 



When a table contains more values than you can fit in a window, you 
can adapt the table to scroll up or down. This saves space (X=36 and the 
Y measurement depends on the maximum text length) and is very user- 
friendly. 

The basic idea of a scrolling table is that you display one section of the 
table at a time. The other elements are either hidden above or below the 
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currently displayed selection. You can see die rest of these selections by 
clicking on one of two arrows. Click the arrow in the direction you 
want the table to scroll. 

The way this program is constructed, you can combine these routines 
with very few changes. All you need is the subroutine in your own 
programs. You should bear in mind, however, that the arrays used here 
must be passed on to your own programs as well. This program ends 
when you press a key. 

• Definition of a Click Tabled 
. , 

? 

Variables : ? 
? 

DEFINT a-z? 

MaxNum=2 ' a maximum of 3 Tables? 

MaxEl-10 ' with a maximum of 11 Elements! 

TabNum=0? 

CharWid=8 ' CharacterWidth - 80 Width>=8 ; 60 Width»10? 

? 

DIM SHARED MaxLen (MaxNum) ? 

DIM SHARED ChoseTable$ (MaxNum,MaxEl) ? 

DIM SHARED ClickTable(MaxNum,3) ? 

DIM SHARED ClickID (MaxNum) ? 

DIM SHARED ClickValue (MaxNum) ? 

DIM SHARED ActEl (MaxNum) ? 

DIM SHARED NumElements (MaxNum) ? 

? 
. f 

? 

Functions : ? 
? 

DECLARE FUNCTION Moves LIBRARY! 

LIBRARY "graphics. library"! 
? 

Main:? 
? 

PRINT "End Program by Pressing any Key."? 
? 

RESTORE TableTest? 

Def TabScr "Scroll-Table" , 20, 5, 7 , 1? 
? 

ON MOUSE GOSDB CheckTable? 

MOUSE ON? 
? 

WHILE INKEY$="" ? 
SLEEP? 



? 
LOCATE 18,1? 
PRINT "Item";ClickValue(l);"was selected containing the 



WRITE Chi 



ioseTable$ (1, ClickValue (1) ) ? 



MOUSE OFF? 
END? 



? 
CheckTable:? 

? 
IF TabNum=0 THEN RETURN? 



FOR loop=l TO TabNum? 
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mx=MODSE(l)! 
my=M0USE(2)! 

IF iroO-ClickTable (loop, 0) THEM 
IF my>=ClickTable(loop,l) THEN! 
IF mx<=ClickTable(loop,2) THEN! 
IF my<=ClickTable (loop, 3) THEN! 

5 
IF ClickID(loop)°=5 THEN! 

IF my-ClickTable(loop,l><18 THEN! 

IF ClickValue (loop) <NumElements (loop) 

THEN11 ClickValue (loop) =ClickValue (loop) +15 

END IF! 
ELSEIF ClickValue (loop) >1 THEN! 

ClickValue (loop) -ClickValue (loop) -1! 
END IF! 
DataOut loop, ClickValue (loop) , 

ClickTable (loop, 0) +51 , ClickTable (loop, 1 ) ! 

END IF! 
5 
END IF! 
END IF! 
END IF! 
END IF! 
NEXT loop! 

! 
IF MOUSE (0)—l THEN CheckTable! 

* 

RETURN! 

! 

. ! 

! 

SUB DefTabScr (TableNaine$,x,y,MaxNum,NumAct) STATIC! 

i 

SHARED TabNum, CharWid! 
TabNumpTabNum+l! 
! 
FOR i=l TO MaxNum! 

READ ChoseTable$ (TabNum, i)! 

1=LEN (ChoseTable$ (TabNum, i) ) ! 

IF l>MaxLen (TabNum) THEN MaxLen (TabNum) =1! 
NEXT if 
! 

NumElements (TabNum) -MaxNum! 
ClickValue (TabNum) -NumAct! 
MaxLen (TabNum) -MaxLan (TabNum) *ChazWid! 

! 

' Output table! 

! 

xyPTAB x*CharWid,y*8! 

PRINT TableName$! 

xl=x*CharWid : yl=y*8+6! 

x2=xl+51! 

LINE (xl,yl)-(x2+MaxLen(TabNum)+l,yl+36) ,l,b! 

LINE (x2,yl)-(x2,yl+36),l! 

LINE (xl,yl+18)-(x2,yl+18),l! 

LINE (x2 , yl+12 ) - (x2+MaxLen (TabNum) +1 , yl+12 ) , 1! 

LINE (x2,yl+24)- (x2+MaxLen (TabNum) +l,yl+2 4) , 1! 

PSET (xl+17,yl+16)! 

LINE -(xl+34,yl+16)! 

LINE -(xl+34,yl+10)! 

LINE -(xl+40,yl+10)! 

LINE -(xl+25,yl+2)H 

LINE -(xl+10,yl+10)! 

LINE -(xl+17,yl+10)! 

LINE -(xl+17,yl+16)! 

PAINT (xl+18,yl+15) , 1, 1! 

I 
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PSET (xl+17,yl+20)! 
LINE -(xl+34,yl+20)! 
LINE -(xl+34,yl+26)! 
LINE -(xl+40,yl+26)! 
LINE -(xl+25,yl+34)! 
LINE -(xl+10,yl+26)! 
LINE -(xl+17,yl+26)I 
LINE -<xl+17,yl+20)! 
PAINT (xl+18,yl+21) , 1, 1! 
! 

DataOut TabNum, ClickValue (TabNum) , xl+51 , yl! 
! 

• Put Value in Table! 
! 
ClickTable (TabNum, 0) =xl! 
ClickTable (TabNum, 1) =yl! 
ClickTable (TabNum, 2) =«2! 
ClickTable (TabNum, 3) =yl+36! 

ClickID (TabNum) -5 • Scroll-Table! 

! 
END SUB! 
! 
SOB xyPTAB(x,y) STATIC! 

e&HMove& (WINDOW (8) , x, y) f 
END SUM 
! 
SOB SetDrawMode (mode) STATIC! 

CALL SetDrMdS (WINDOW (8) , mode) ! 
END SOB! 
5 

SOB DataOut (NumEl, start, x,y) STATIC! 
! 

x=x+l! 

FOR loop=°start-l TO start+1! 
yl"=y+12* (loop-start+2) -2! 
y2=yl+12-l : x2=x+MaxLen (NumEl) -1! 
LINE (x,yl-9)-(x2,y2-10),0,bf! 
xyPTAB x,yl! 

PRINT ChoseTable$ (NumEl, loop) ! 
IF loop=start THEN! 
SetDrawMode 2! 

LINE (x,yl-9)-(x2,y2-10),l,bf! 
SetDrawMode 1! 
END IF! 
NEXT loop! 
! 

END SOB! 
! 

TableTest : ! 
! 
DATA "I will test"! 
DATA "I will not test"! 
DATA "I am not done yet"! 
DATA "Nothing from Something"! 
DATA "End"! 

DATA "Longer Test for this Program"! 
DATA "Still Another Line"! 



Arrays choseTable table text 

Cl ickID object identification 

ClickTable coordinates of click range 

ClickValue number of selected elements 

ActEl active element of a table 

NumE lement s number of elements of a table 

MaxLen maximum length of table text 
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Variables 



Program 
description 



MaxNum maximum number of click fields 

MaxE 1 maximum number of table elements 

TableName SUB variable; table name 

NumEl number of elements in a table 

T abNum number of defined tables 

Cha rWid pixel width of character 

NumAct number of new active elements 

i floating variable 

1 text length 

loop floating variable 

mode mode set by SetDrawMode 

mx, my mouse coordinates 

x, y SUB variable; table position 

xl, yl character coordinates 

xl, yl character coordinates 

All variables receive integer definitions. To properly display output, the 
character width in pixels is placed in a variable. Change that value when 
you want to use a different font. The program then dimensions all 
necessary arrays. 

The graphics. library opens before the main program executes. 
This contains all the necessary graphic routines for display. Since one 
function is needed from it, it must be defined first. 

The main program itself displays just a short bit of text, executes the 
routine that reads the data, and waits for a keypress. The selected value 
appears at the end, and the mouse reading routine turns off. 

The CheckTable subroutine is different from those in the preceding 
programs. The coordinate checking is similar, but the kernel is 
modified. When a scroll table exists, it checks for a click in the upper 
or lower half of the range. If a click occurs in the upper end, and 
scrolling up is possible, the table scrolls up. If a click occurs in the 
lower end, and scrolling down is possible, the table scrolls down. 

The tables number access and the character width is declared as 
SHARED. Then the number of tables increment, in order to define the 
new tables. The first loop of the subroutine reads all the elements of 
this table, and sets up the maximum number of characters. The correct 
width is computed from this, together with the element numbers in the 
preset arrays. The current point also sets up from this routine. 

Next comes the graphic display. After the title, the table name appears, 
followed by the scroll arrows and three of the elements. LINE com- 
mands draw both boxes (can't get any simpler than that). Finally the 
coordinates of the clicking range are set into an array. 

The subroutine demonstrates two new graphic functions: The Move 
command and the SetDrawMode routine. 
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4.2 Rubberbanding 



Earlier in this chapter you learned about the most important elements of 
professional program design. You shouldn't be afraid of hunting for new 
ways to do things. Every new problem has a new solution. 

This section discusses a function that you've used any number of times. 
The function is called rubberbanding. Rubberbanding occurs when you 
change the size of a window, intuition lets you change a window's 
size by grabbing on to the sizing gadget at the lower right corner of 
most windows. This section, however, shows how to program rubber- 
banding in BASIC. 

The trick lies in creating lines in complement mode instead of simply 
drawing lines. Complement mode allows you to move a line or set of 
lines around on the screen without redrawing the background 

You'd normally use rubberbanding for determining window size on the 
screen. However, this process also makes it easier to draw rectangles in 
graphic programs. 



4.2.1 Rectangles in rubberbanding 



This program serves no real purpose other than to show you how this 
function can be used in a program. You can adapt the mouse control 
techniques to your own applications. 

When you start the program an empty window appears with a mouse 
pointer in it. Press and hold the left mouse button from any position in 
the window, and drag the pointer down and to the right A rubberbanded 
rectangle appears, and changes size as you move the pointer. When you 
release the left mouse button, the rectangle stays on the screen and 
changes to character color 1. 

' Drawing Rectangles with Rubberbanding! 

'« 

• by Wgb in June '87 It 

'11 

LIBRARY "graphics. library "I 

f 

ON MOOSE GOSOB SetPointfl 

mouse om 

WHILE INKEY$<>" "H 

SLEEP 5 
WENDU 
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MOOSE OFFfl 
ENDfl 

SetPoint : fl 

MStat=MOUSE(0)fl 
IF MStatO-1 THEN RETURN! 
1 

xStart=MOOSE (3) f 
yStart=MOOSE(4)fl 
CALL SetDrMdS (WINDOW (8) , 2) f 
1 

NewPosition:H 
f 

mx-MOUSEUH 
my-MOUSE (2) fl 
1 
LINE (xStart, yStart) -(mx,my),,bH 

WHILE MOUSE (0)— 15 

IF n«OMOUSE(l) OR myOM0USE(2) THENfl 

LINE (xStart, yStart )-(mx, my ),,bfl 

GOTO NewPositlonfl 
END IF5 
WEND fl 
1 

CALL SetDrMdS (WINDOW (8), 1) fl 
LINE (xStart , yStart) - (mx, my) , , bf 
RET0RN5 

1 



Variables MStat mouse status 

mx, my mouse coordinates 

xStart starting X-coordinate of rectangle 

yStart starting Y-coordinate of rectangle 

The graphics.library opens. The program draws the guidelines in 
urogram complement mode, and this library file transfers the necessary graphic 

description routines to the program. 

The SetPoint subroutine sets the mouse reading at the beginning of 
the program. The program waits for a keypress. When this occurs, the 
mouse reading routine turns off and ends. 

The mouse reader is the central point of the program; take a good look 
at those program lines. The mouse status goes into a variable. When it 
notes that the user hasn't pressed the left mouse key, the subroutine 
exits. Otherwise, the program marks the pointer position as the starting 
value, and the drawing mode changes to complement mode. The routine 
then draws the rectangle and waits for the user to move the mouse. Fol- 
lowing this, the program deletes the rectangle and redraws the rectangle 
to fit the new mouse position. 

When the user releases the left mouse button, the program exits the 
loop. The program then returns to normal character mode, and the final 
rectangle is displayed. 
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4.2.2 Creating shapes 



Rubberbanding can be used for much more than changing window sizes 
and drawing rectangles. This program draws lines between two points 
selected by the user. This routine also uses rubberbanding. When you 
start the program and press the left mouse button, you'll see that two 
pixels connected by a rubberband appear. 

' Connections with Rubberbanding^ 

'1 

' by Wgb in June '875 

'5 

1 

LIBRARY "graphics. library "H 

5 

BaseGraphic:f 

5 

LINE (100, 180) -(540, 180) 5 

1 

FOR i-100 TO 540 H 

x-(i-100)/2. 4444445 
y=SIN (x*3 . 1415/180) *1005 
LINE -(i,180-y)5 

NEXT i5 

5 
ON MOOSE GOSOB SetPointfl 
MOOSE COT 
I 

WHILE INKEY$0" "1 
SLEEP 5 

WEND1 
5 

MOOSE OFF5 
END5 
5 
5 

SetPoint:5 
1 

MStat=MOOSE(0)5 

IF MStatO-1 THEN RETORN5 

1 

CALL SetDrMdS (WINDOW (8) , 2) 5 

5 
NewPosition:! 

I 

not-MOOSE (1)5 

CALL Connect (mx) 5 

5 

WHILE MOOSE (0)— 15 

IF mxOMOOSE(l) THEOT 
CALL Connect (mx) 5 
GOTO NewPosition^ 

END IF5 
WEND f 

CALL SetDrMdS (WINDOW (8) , 1) f 

CALL Connect (mx) 5 

RET0RN5 
5 
SOB Connect (x) STATIC5 

1 

IF x<100 THEN x-1005 

IF x>540 THEN x-5405 
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xw(x-100) /2.444444H 
yw-SIN (xw*3 . 1415/180) *1001 

LINE <100,180)-(x,180-yw)5 
LINE -(540,180)5 
PSET (x, 180-yw)f 
f 
END SOBfl 
1 



Variables MStat mouse status 

i floating variable 

mx mouse position 

x, y graphic coordinates 

xw, yw coordinates in SUB 

p The basic design is similar to the first listing. There is an additional 

Program routine for the banding based on a short sine equation, followed by the 

description same delay loop. 

The major changes appear in the SUB programs. The mouse control 
routine now checks the X-position of the pointer. This position con- 
trols the call of a subroutine. The routine then draws the connecting 
line, while reading the pointer's X-movement. Like the previous pro- 
gram, the old lines are deleted and redrawn at the new position. 

Try the program out. The X-value goes into a specific range, since not 
every X-coordinate has a graphic equivalent. The program then com- 
putes the coordinates and draws the line. 



4.2.3 



Object positioning 



This last routine came from the idea of a drawing program for two- 
dimensional grid graphics. When you draw multiple objects in such a 
program, you may find that you run out of room on the screen. The 
simplest way to move objects would be to select them with the mouse 
pointer and drag the objects to new screen locations. The following pro- 
gram performs a function similar to this. First it computes the comer 
point of a circle. Circles have no corners, but to make the coding 
simple, this program plots an imaginary corner point 

The circle is displayed as long as you press and hold the left mouse 
button; it disappears when you release the left mouse button. 

| Objects with Rubberbandingfl 
* by Wgb in June '875 
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ObjectDef inition: 5 

5 

DIM SHARED Ob%(10,l)5 
Pi-3. 1415935 
5 

FOR 1-0 TO 360 STEP 365 
x-COS (i*Pi/180) *305 
y=SIN(i*Pi/180)*155 
Ob%(i/36,0)=x5 
Ob%(i/36,l)=y5 
NEXT 15 
5 
5 
ON MOUSE GOSDB SetObject5 
MOOSE ON5 

5 

WHILE INKEY$<>" "5 
SLEEP 5 

WEND5 
5 

MOUSE OFF5 
END5 
5 
5 

SetObject:5 
5 

MStat=MOOSE(0)5 

IF MStatO-1 THEN RETORN5 

5 

CALL SetDrMdS (WINDOW (8) , 2) 5 

5 

NewPosition:5 
5 

mx=MOOSE(l)5 
my=MOOSE (2) 5 
CALL DrawObject(noc,my)5 

5 

WHILE MOOSE (0)— 15 

IF mxOMOOSE(l) OR ntyOMOOSE(2) THEN5 
CALL DrawOb ject (mx, my) 5 
GOTO NewPosItion5 
END IF5 
WEND 5 
5 

CALL SetDrMdS (WINDOW (8) , 1) 5 
CALL DrawObjeot(noc,my)5 
5 

RETORN5 
5 
SOB DrawObject(x,y) STATIC5 

5 

PSET (Ob%(0,0)+x,Ob%(0,l)+y)5 

5 

FOR 1=1 TO 105 

LINE -(Ob%(i,0)+x,Ob%(i,l)+y) 5 
NEXT 15 
5 
LINE -(Ob%(10,0)+x,Ob%(10,l)+y)5 

5 
END SOB5 
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Arrays 
Variables 



Program 
description 



Ob circle point array 

MStat mouse status 

Pi 3.141593 

i floating variable 

mx, my mouse coordinates 

x, y circle coordinates 

The graphics.library opens and the 0b% array reads the X- and 
Y-coordinates. A loop computes the 11-pixel offset from the circle's 
"corner" to the circle's border. The rest of the program should look 
familiar to you. 

The most important changes occur in the mouse reader routine. If the 
left mouse button has not been depressed, the mouse reader branches 
back to the main program. If the user presses that button, the program 
sets the drawing mode and draws the object at the current position. Then 
the program goes into a delay loop again, and exits when you release 
uie left mouse button. The program branches again to the point before 
the loop at which you change the mouse position, since the grid must 
be erased and the object drawn at its new position. 

The subroutine for drawing the object takes the 1 1 coordinate pairs from 
the Ob% array. The first point is drawn, then the others, through LINE 
commands. All points drawn join to form a circle. 
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Invisible status lines are part of a new screen organization which offer 
you many new special effects. For example, it allows you to create a 
color bar that lets you move the entire screen up and down. This bar has 
its own foreground and background colors, and it can also contain 
movable text With the same program, you can fill the screen back- 
ground with a pattern or graphic, if you wish. This pattern stays intact, 
even when you use PRINT commands, draw or scroll. There's more: 
You can scroll your background independently of the foreground 
drawing. 

You need only two applications for doing all this. Before listing the 
program, let's look at the individual SUB programs that perform these 
miracles. The first is CreateStatus. This command turns on the 
new screen organization. The next is Copy. This command copies the 
current screen contents in the background, where only colors and 1 
appear (only one bitplane is available in background memory). Once the 
screen contents are copied, a new background pattern appears. You can 
clear the "normal" screen with the CLS command; the background 
pattern stays on. The closing is the Move SUB program. This 
command scrolls the background pattern up or down. The command 
syntax needs two values: 

Move dir%,speed% 

The dir% variable gives the number of pixels the background graphic 
should move. A positive value scrolls the graphic down; a negative 
number scrolls it up. The speed% variable sets the scrolling speed. 
is the top speed; larger values slow the scrolling. Here's a sample call: 

Move 100,40 

This call moves the background 100 pixels down at a delay rate of 40. 

As you'll see when you test the following programs, the Move com- 
mand does more than just move the background. When you move the 
background graphic up or down, the opposite side of the page stays 
visible. The routine acts as an endless scroll routine, which can produce 
some very pretty effects. Try this version of the Move command: 

Move 0,0 

This call appears to do nothing (moving the backgound graphic 
pixels), but it has a special function: It clears the background graphic. 

The EndStatus SUB reactivates the normal screen display. This 
command must be at the end of your programs to remove the 
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CreateStatus command's effects. Also, this command returns the 
entire user memory range. 

' ############################! 

'# #1 

'# Program: Dual BitMap #1 

'# Author: tob #1 

'# Date: May 8, 1987 #1 

•# Version: 2.0 #1 

'# #1 

* ############################1 

I 

DECLARE FUNCTION AllocMemS LIBRARYI 

DECLARE FUNCTION BltBitMap% LIBRARYI 

I 

LIBRARY "graphics . library" I 

LIBRARY "intuition. library"! 

LIBRARY "exec. library"! 

I 

demo: •* Open Screen! 

SCREEN 1, 640, 240, 3, 25 

WINDOW l,»DualBitmap", (0,0)-(610,217) ,1,15 

WINDOW OUTPUT II 

I 

'* Draw Circlel 

CreateStatusI 

LINE (0,0) - (620, 10),, bf I 

Copy! 

CLSI 

I 

'* Color! 

PALETTE 1,1,1,11 

PALETTE 4,1,0,01 

PALETTE 5,1,. 5, .51 

I 

GOSUB textl 

I 

'* Move Scroll Circlel 

Move 166, 01 

PRINT "Please Press any Key.":PRINT" "I 

WHILE INKEY$ - "": WENDI 

Move 0,01 

I 

'* 2nd Experiment! 

CLSI 

CIRCLE (140,100), 120, II 

CIRCLE (140,100), 100, 1* 

CIRCLE (140,100), 80, II 

CIRCLE (140,100), 50, II 

CIRCLE (140,100), 25, II 

PAINT (250,100), 1, II 

PAINT (210,100), 1, II 

PAINT (140,100), 1, II 

Copyl 

CLSI 

I 
•* Colorl 

PALETTE 0,0,0,11 

PALETTE 1,1,0,01 

PALETTE 4,0,1,11 

PALETTE 5,0,1,01 

I 

GOSUB textl 

I 

LOCATE 22,11 
PRINT "Please Press any Key. "I 

WHILE INKEY$ = ""I 
Move -3, 01 

WENDI 
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11 
** 3rd Experiment! 

Move 0, 0*11 

CLS! 

WIDTH "scm:", 85! 

text$ = "* Amiga Tricks and Tips"! 

FOR loop% = 1 TO 56! 

LOCATE loop%,5! 

PRINT text$! 

NEXT loop%! 

! 

Copy! 

CLS! 

! 
•* Color! 

PALETTE 0, .1, .1, .8! 

PALETTE 1,1,1,1! 

PALETTE 4,.3, .3, .3! 

PALETTE 5,1,1,1! 

! 

GOSUB text! 

! 

'* Animation! 

WHILE INKEY$ - ••"! 
Move 1,0! 

WEND! 

! 

Move 0,0! 

! 

EndStatus! 

WINDOW 1 , "Dual-Bitmap" , , , -1! 

SCREEN CLOSE 1! 

! 

LIBRARY CLOSE! 

END! 
text: •* Print Text! 

CLS! 

LOCATE 5 1! 

PRINT "This is the new 'Dual-Bitmap'."! 

LOCATE 6 1! 

PRINT "You can control two bitplanes,"! 

LOCATE 7 1! 

PRINT "one completely independent of"! 

LOCATE 8,1! 

PRINT "the display."! 

LOCATE 9,1! 

PRINT "The level helps"! 

LOCATE 10,1! 

PRINT "determine the color"! 

LOCATE 11 1! 

PRINT "registers using the bitplanes:"! 

LOCATE 12,1! 

PRINT "Level Color register"! 

LOCATE 13,1! 

PRINT " * 

LOCATE 14,1! ^ j 

PRINT " 1 not fuctional"! 

LOCATE 15,1! 

PRINT " 2 2, 3"! 

LOCATE 16,1! 

PRINT " 3 4, 5"! 

LOCATE 17,1! 

PRINT " 4 8, 9"! 

LOCATE 18,1! 

PRINT " 5 16, 17"! 

RETURN! 

! 

SOB Copy STATIC! 

SHARED bitmaps, bitmap2&! 
1% = PEEK (WINDOW(7) + 54)! 
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+8) - r% - 1%! 

o%! 



r% - PEEK (WINDOW (7) + 56) ! 

u% - PEEK (WINDOW (7) + 57)5 

o% - PEEK (WINDOW (7) + 55) ! 

w% - PEEKW (WINDOW (7) 

h% - PEEKW (WINDOW (7) + 10) - u% 

x% = PEEKW (WINDOW (7) + 4) + 1%! 

y% - PEEKW (WINDOW (7) + 6) + o%! 

1 

plc% = BltBitMap% (bitmaps, x%, y%, bitmap2S, x%, y%, 

g&D fe 200 ' 255 ' ° n 
! 

SOB Move (dirt, speed%) STATIC! 
SHARED bitmap2Sl 



1% 
r% 

u% 
o% 
w% 
h% 

x% 

y% 



PEEK 

PEEK 

PEEK 

PEEK 

PEEKW 

PEEKW 

PEEKW 

PEEKW 



(WINDOW (7) 
(WINDOW (7) 
(WINDOW (7) 
(WINDOW (7) 
(WINDOW (7) 
(WINDOW (7) 
(WINDOW (7) 
(WINDOW (7) 



+ 54)H 

+ 56) 1 

+ 57)5 

+ 55)1 

+8) - r% - 1%! 

+ 10) - u% - o%! 

+ 4) + 1%! 

+ 6) + o%5 



x%, 
x%. 



spd% = 10*speed%! 
u% - y% + h% - 2! 
IF dirt - THEN! 

bitplaneS = PEEKL (bitmap2S +8)1 

m% = PEEKW (bitmap2S)l 

n% - PEEKW (bitmap2S +2)1 

s& = (m%*n%)l 

CALL BltClear (bitplaneS, sS, 0)1 

EXIT SOB! 
END IF! 
FOR z% - 1 TO ABS(dirt)! 

IF dirt > THEN! 

plc% - BltBitMap% (bitmap2S, x%, u%, bitmap2S, 

Y ' pic* 1 - 2 J?tBit§lp% 0> (Sitmap2S, x%, y%, bitmap2S, 
w%, h% - 1, 200, 255, 0)1 



7 ELSkn 

plc% - BltBitMap% (bitmap2S, x%, y%, bitmap2S, 



x%, ... ,._-, ^^.-^^^ x% , y% + lf 
bitmapgs^ xjj^ y%, w%, h% -r 1, 200, 255, 0)1 

FOR del% - 1 TO spd%: NEXT del%5 

NEXT z%! 
END SOB! 
1 
SOB EndStatus STATIC! 

SHARED raslnfo&l 

rasInfo2& - PEEKL 

bitmaps =■ PEEKL 

bitmap2S - PEEKL 

level% = PEEK 



(raslnfos) 5 
(rasInfoS + 4)! 
(rasInfo2s + 4)1 
(bitmaps + 5)1 



POKEL bitmaps + 8 + level%*4, PEEKL (bitmap2s +8)1 

POKE bitmaps + 5, level% + 1! 

POKEL raslnfos, 01 

CALL FreeMem(rasInfo2s, 10)1 

CALL FreeMem(bitmap2S, 40)1 
END SOB! 
5 
SOB CreateStatus STATIC! 

SHARED raslnfos, bitmaps, bitmap2S5 
'* Get System Addresses! 

winds = WINDOW(7)l 

rastports - WINDOW(8)! 

bitmaps = PEEKL (rastports +4)1 

level% = PEEK (bitmaps + 5) 1 
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scrfi - PEEKL (winds + 46)1 

vpS - PEEKL (scrS + 44)1 

rasInfoS - PEEK (vpS + 36)1 

1 

IF level% < 2 THEN1 

PRINT "A Screen with 2 levels is needed! "f 

EXIT SOB! 
END IF! 
1 

' * Establish Structured 
opts - 2*1 + 2 A 16! 
rasInfo2& - AllocMemS (10, opts) ! 
IF rasInfo2& - THEN ERROR 75 
bitmap2s - AllocMemS (40, opts) f 
IF bitmap2S - THEN! 

CALL FreeMem(rasIn£o2&, 10)1 

ERROR If 
END IF! 
f 

CALL CopyMem (raslnf OS, rasIn£o2S, 10)1 
CALL CopyMem (bitmaps, bitmap2s, 40)5 
f 

POKE bitmaps + 5, level% - 11 
POKE bitmap2S + 5, 11 
POKEL bitmap2S + 8, PEEKL (bitmaps + 4 + 4*level%)l 

POKEL bitmaps + 4 + 4*level%, 0! 
POKEL rasInfo2s + 4, bitmap2Sl 
1 

POKEL raa InfoS , rasInfo2sl 
END S0B1 

Once you enter this program, be sure to save it to diskette before you 
Program^ try running it for the first time. The first experiment displays a red bar. 

description It moves around the text page, and apparently can pass behind text in 

the window. The second experiment is similar. Transparent circles 

move around on the screen. The third experiment fills the background 

with a text pattern. 

Now for the technical basics of what's going on here. The Amiga recog- 
nizes a special mode called the Dual Playf ield mode. This mode 
can divide individual bitplanes in screen memory into two groups, and 
make these two groups independent of each other. These two groups are 
like independent screens; each one is visible through the other in the 
background. This graphic mode isn't used in these examples. Only one 
item is used which actually can be counted as Dual Playf ield 
mode. The Raslnf o data structure, which assigns a pointer in the 
viewport to the selected screen, lets you detach individual bitplanes 
from each other. The Raslnf o structure connects one of its own bit- 
map structures contained in the disconnected bitmap. 

The CreateStatus SUB reads the corresponding system addresses. 
Then it tests for a screen with a depth of 2 or more. If the screen has 
only one bitplane, the system can't use it If two or more bitplanes are 
available, then the two Bitmap and Raslnf o structures are set up 
(AllocMem ( ) allocates the needed memory). The original bitplane 
takes on the named bitplane (incremented in depth by 1). The second 
bitmap receives a depth number of 1, and is inserted into the first bit- 

143 



4. User-friendliness Amiga Tricks and Tips 



map. Finally, a pointer to the new bitmap must be inserted in the 
Raslnf o structure. 

The Copy SUB copies the contents of the first bitplane (colors and 1) 
to the coupled bitplane (bitplane2&). Only window contents are 
copied. It would be simpler to just copy the entire screen contents, but 
then the window borders would be copied as well. Using the Move 
routine under these conditions would scroll the window borders as well 
as the background, and probably cause a system error. If you reduced the 
size of your window after the copy process, the background would keep 
its full size. You can avoid this by either not changing window size, or 
clearing the background with Move 0,0. 

The Move SUB scrolls the background up or down. This affects the 
window contents only, nothing else. The system handles this as an 
endless scroll routine, which can scroll one line of pixels up or down at 
a tine. Larger increments move through multiple looping. 

Calling Move 0,0 activates the BitClear ( ) function, which clears 
the entire background (not just the window's contents). Any window 
section hidden beyond the edges of the screen is also cleared 

EndStatus restores the original bitmap and clears the dual struc- 
tures. 

Now mat you have some background information on the program, let's 
take a closer look at the programming. When mixing bitplanes, the 
user doesn't have eight colors with a screen that has a depth of 3 planes 
(normally 2 3 =8). Instead, since two of those planes are merged only 
four colors are available (2 2 =8). However, you still get 8 colors in 
combination with the background. A screen with a depth of 3 appears in 
background memory with the color of color register 4. This command 
sets die color of the background graphic: 

PALETTE 4, 1, .6, .9 

The combined color between background graphic and normal foreground 
drawing color conies from color register 5. This command sets the color 
shared by the background and normal foreground: 

PALETTE 5, 1, 1, .7 

The color selections are up to you-you can get some nice effects. For 
example, you can combine the normal background and color register 4 
to set a combined shade of red: 

PALETTE 0, 0, 0, 
PALETTE 4, 0, 0, 
PALETTE 5, 1, 0, 
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The result: The background is invisible. When the foreground color 
runs into the background (through PRINT, etc.), the text turns red. 

Another is the transparent effect. Color register 4 must be assigned to 
different colors, like red. The best combined color should be a mixture 
of foreground color (register 1) and register 5: 

PALETTE 1, 1, 1, 1 'White foreground color' 
PALETTE 4, 1, 0, 'Red background graphic' 
PALETTE 5, 1, .5, .5 'Combined pink color' 

When you want to put a text or pattern in the background (see the third 
program above), make sure that the window height allows enough room 
for the entire graphic or text, without halving or splitting the material 
in the window. If this happens, when the line scrolls it reappears after 
scrolling as broken lines on the screen. 
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DOS routines 



The DOS, or disk operating system, is part of the internal operating 
system software of the Amiga. This DOS is essential to all commu- 
nications between the Amiga and its disk drives. 

Disk drives are important to the user and the Amiga, since diskettes are 
the Amiga's mass storage media. That is, you use diskettes for storing 
programs, files and other information. In fact, without diskettes, you 
wouldn't get past the startup icons (the KickStart icon in the Amiga 
1000 and the Workbench icon in the Amiga 500 and 2000). 

The Amiga Workbench diskette contains an additional library. This 
library, which has many machine language routines that perform com- 
plex disk functions, is called dos.library. 

This chapter lists a number of disk utilities that access the 
dos.library program. You'll learn how to add program commen- 
tary, view diskettes for existing files and protect files from overwriting. 
In addition, you'll find out how you can rename diskettes, access a 
directory and more, all from AmigaB ASIC. 
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5.1 Program comments 



Any program or directory can have a comment of up to 80 characters 
connected to it. Often the program name itself doesn't give the user 
enough information about its purpose or use. Comments like "still 
under development!" or "written by Fred" or "Version 3.4" contain 
important information about the program in question. Subdirectories 
can be made more readable with comments like "This directory contains 
the .bmap files", "Business letters are stored here", or even "I wouldn't 
open this file if I were you". 

The following program assigns comments to any file or directory. The 
comment appears on the screen if you access the file through the CLI's 
list command. 

The command format is: 

SetComment "program name", "comment" 

Here's an example of the command. This example puts a comment into 
the c directory of the Workbench diskette: 

SetComment "SYS:c", "CLI commands are in here" 

• ########################5 



•# 
'# 
•# 
■# 
•# 
•# 

•#4 
! 

DEC 
LII 


#11 
P rogram : SetComment # U 
Author: tob #H 
Date: 4.8.87 #H 
Version: 1.0 #! 

#1 
>######################! 


JLARE FUNCTION SetComment% LIBRARY! 
3RARY "dos. library"! 



demo : ' ^Demonstrates commentary! 

SetComment "programl", "SetDrMd() -Routines"! 
! 

LIBRARY CLOSE! 
END! 
! 
SUB SetComment (file$, comment$) STATIC! 
file$ = file$ + CHR$(0)! 
comment $ = comment $ + CHR$ (0) ! 

suc% => SetComment% (SADD (f ile$) , SADD( comment $) ) ! 
IF suc% - THEN! 

PRINT"SetComment unsuccessful."! 
END IF! 
END SUB! 
! 
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Variables 



Program 
description 



Note: 



file$: name of the desired file or directory 

comment $: comment 
sues: error flag 

The necessary SetComment function is declared and the DOS library 
opens. The filename (f ile$) and comment (comment $) are passed to 
the SUB program. The two text strings terminate with zero bytes 
(CHR$ ( ) ) and the SetComment ( ) function is called. When you 
want to delete a comment, enter a null string (""). If DOS cannot 
execute this command (file doesn't exist or is protected), then sues 
changes to and an error message appears. 

If the desired file is in a different directory, you'll need to enter the entire 
pathname in the command. For example, "Workbench : libs/gra- 
phics.bmap". 
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5.2 CheckFile 



Is a certain file on the diskette or isn't it? This question is important, 
since you can only open an existing file. Otherwise, an error message 
appears. 

The following program can help you. The command syntax is: 

CheckFile " filename ** 

This command checks to see if the given file exists. If the file exists, it 
tells you the block number where the file lies. This allows you to 
quickly find a file with a disk monitor. 

• ########################5 

•# n 

•# Program: CheckFile #H 

■# Author: tob #5 

•# Date: 4.8.87 #5 

'# Version: 1.0 #11 

•# #1 

DECLARE FUNCTION Locks LIBRARY?! 

LIBRARY "dos. library"! 

1 

demo: ' *Demonstrates application 1 ! 

LINE INPUT "File you want checked >";file$fl 

CheckFile file$, blocks fl 
IF blocks - THEN5 

PRINT "I can't find the file ";file$5 

ELSEfl 
PRINT "Found the file ";file$3 
PRINT "File header begins on the diskette 1 ! 
PRINT "at block "; blocks H 
END IF1 

1 
LIBRARY CLOSER 
ENDfl 

SUB CheckFile (file$, results) STATIC?! 
file0$ = file$ + CHR$(0)5 
a.read% = -2f 

adds = Locks (SADD (fileOS) , a.read%)fl 
IF adds O THENfl 

results - PEEKL(resultS*4 +4)5 
ELSEH 

results - OH 
END IFH 

CALL Unlock (adds )U 
END SUBf 
I 
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5.2 CheckFile 



Variables 



Program 
description 



Note: 



file$ name of desired file 

results result of search 

f ileO$ like f ile$, but terminated by null 

a.read% ACCESSREAD, read only 

add& file lock address 

DOS uses the Lock function to "latch onto" a specific file or di- 
rectory. A Lock data structure is set up which contains the special 
parameters for this file or directory. 

The program uses Lock ( ) to determine if a given fife exists. Lock ( ) 
sets the program name from f ileO $. If the file doesn't exist, then no 
Lock structure can be created and adds contains 0. If the file does 
exist, this variable contains the pointer from the data structure. This 
pointer is a BPTR type. It contains the longword offset instead of the 
starting address of the data block. Multiplying the BPTR value by four 
returns the correct starting address. Finally, the lock must be freed by 
Unlock () before you can view the file. 

You may have been wondering about the a.read% variable. It contains 
the value -2, which stands for access_read. This mode allows you 
to get the data structure of the file without blocking any other user 
access. In a multitasking system, another task may also be viewing the 
same file. There is no problem with this since all you are doing is 
reading the file. EXCLUSIVE_WRITE mode is useful when you want 
to write to a file, or change its contents in some way. Other tasks that 
try to access the file are sent a "FILE ALREADY OPEN" error 
message. If another task succeeded in writing to a file at the same time 
you were writing to it, the result could damage the file. 

Here is the Lock data structure based on the bptr: 

+0 LONG BPTR to the next block, else 

+4 LONG Block number of dir or file header 

+8 LONG Shared (-2) or exclusive access (-1) 

+12 LONG APTR to handler task ProcessID 

+16 LONG BPTR to the disk entry 

You could use this program to check to see if the appropriate .bmap 
files are on a diskette before you use kernel command routines. 
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5.3 Protecting data 



Has this happened to you? You write a program and save it to diskette. 
After you've saved it, you remember that yesterday you saved an even 
better program under the same name on this diskette. Saving the new 
program under the same name overwrote the old program. 

Earlier versions of AmigaBASIC saved files without checking first to 
see if a file wilh the same name existed on the diskette. There is a cure 
for this problem, since you can easily "write-protect" programs on a 
diskette. Every program header has four bits which have the following 
meanings: 



Bitl 
Bit 2 
Bit 3 
Bit 4 



DELETE 
EXECUTE 
WRITE 
READ 



You can protect your program from accidental deletion or overwriting 
(DELETE), accidental starting (EXECUTE), modification (WRITE), and 
reading (READ). Earlier versions of DOS only checked the DELETE bit. 

The following program creates the Protect command, which allows 
you to set any one of these four bits. You don't have to enter any bits 
or bytes; the command format is: 

Protect "filename", "read | write 1 execute | delete" 

You can type <|> by holding <SHIFT> and pressing <\> (backslash). 

You can specify the four file protection modes in any order. <|> charac- 
ters must separate each mode word. 

' ########################! 

'# #H 

'# Program: Protect #5 

'# Author: tob #fl 

•# Date: 4.8.87 #fl 

■# Version: 1.0 #5 

'# #1 

' ########################5 

1 

DECLARE FUNCTION SetProtection% LIBRARY! 

LIBRARY "dos. library"! 

demo: ' *Demonstration! 

Protect "prgl", "read | write | delete" 5 

1 

LIBRARY CLOSE! 

ENDS 

5 
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SUB Protect (file$, mask$) STATIC! 
fileO$ - £ile$ + CHR$(0)5 
prot$(3) - "READ"! 
prot$(2) - "WRITE"? 
prot$(l) = "EXECUTE"! 
prot$(0) = "DELETE"! 

FOR loop% - 1 TO LEN(mask$)5 
byte$ = MID$(msk$,loop%,l)5 
IF byte$ O "|" THEN! 

p$(count%) - p$(count%) + byte$5 
ELSE! 

count% ■» count% + 15 
END IF! 
NEXT loop%5 
5 

FOR loopl% - 3 TO STEP -15 
FOR loop2% - TO 35 
IF UCASE$ (p$ (loop2%) ) = prot$(loopl%) THEN! 
ntask% - mask% + 2 /> loopl%5 
END IF! 
NEXT loop2%! 
NEXT loopl%! 
5 

suc% - SetProtection% (SADD (f ileO$) ,mask%) 5 
IF suc% = THEN! 

PRINT "No protection."! 
END IF! 
END SUB! 



Variables 



Program 
description 



f i le $ name of program you want changed 

f ileO $ program name, terminated with null 

mask$ mode mask, consisting of the modes read, write, 

execute and delete 

prot $ ( ) array containing names of protection modes 

P$ ( ) word memory for values read 

byte $ one-byte character from mask 

mask% bit mask taken from the above mode mask 

loopl% loop variable 

1 o op 2 % another loop variable 

suc&: error flag from DOS routine; 0=error 

First the program name in f ile$ must be converted (a nullbyte 
(CHR$ ( ) ) must be added to the end of the filename). The string then 
transfers to the variable fileO $. Finally the mode definition occurs at 
the prot $ ( ) array. These are later compared with the function call. 

A loop goes through maske$ character by character. A < I > character 
signals the end of the word. The found words are stored in p$ ( ) . 

A second loop goes through the words. It actually involves two nested 
loops which compare each word with the keywords in prot$ ( ) . This 
permits you to list the attributes in any order in the function call. The 
protection bits described above are set and stored in mask%. 

Protection then assigns the bits to the file. The protection bits in 
mask% are placed in the diskette's file header. 
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If problems occur (e.g., file not found, no diskette in drive, etc.), the 
Protect routine returns a value of and displays an error message. 

The cli command LIST displays the protection status of each file. 
The normal file attributes are "rwed" (read, write, execute, delete). 
This means that the file is unprotected. If you prevent it from being 
deleted, for instance, the result would be "rwe-", and you could no 
longer delete the file or overwrite it 

PROTECT "SYS :LIBS/graphicsJDmap","delete" 

The entry "rwe-" appears in the CLI LIST output 

If you want to unprotect a program again, just reprotect it while 
omitting the undesired protection: 

PROTECT "SYS : LIBS /graphics.bmap"," 

removes all protection from the program. 
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5 . 4 Renaming files 



Here's a short but very practical program that changes the name of any 
file or directory. AmigaBASIC doesn't have a command of this kind. 
Your only alternative is to load the program and save it under another 
name. 

This program uses two pointers and requires a filename ended by a 
nullbyte. 

• ########################f 

•# n 

'# Program: Rename #! 

'# Author: tob #! 

'# Date: 4.8.87 #! 

•# Version: 1.0 #! 

'# n 

• ########################1 
! 

DECLARE FUNCTION Rename% LIBRARY 1 ]! 

LIBRARY "dos. library"! 

! 

demo: ' * Demonstration! 

Rename "prgl", "programl"! 
! 

LIBRARY CLOSE! 
END! 
! 
SUB Rename (file$, anew$) STATIC! 
file0$ = file$ + CHR$(0)! 
anew0$ = anew$ + CHR$ (0) f 

suc% = Rename%(SADD(fileO$) , SADD (anew0$) ) ! 
IF suc% O -1 THEN! 

PRINT "Rename unsuccessful."! 
END IF! 
END SUB! 



Variables file$ name of existing file 

anew$ new filename 

f i le $ like f i le $ , but terminated by 

anewO $ like anew$, but terminated by 

sues DOS function error flag; 0=error 

The function is similar in function to the DOS rename command. 
Program Both the current and new program names must be terminated by zero 

descriptio n bytes. The addresses of the two names are passed to DOS for renaming. 

If an error occurs, an error message appears on the screen and the 

program sets the error flag. 
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Wouldn't it be nice if you could read the directory from within a BASIC 
program? The FILES command helps very little, because it prints all 
of the filenames on the screen and does nothing else. This GetDir 
routine reads all of the important data from the current directory and 
stores it in arrays. 

• ########################1 
•# #! 

'# Program: GetDir #? 

•# Author: tob #? 

'# Date: 4.8.87 #? 

'# Version: 1.0 #5 

•# #? 

' ########################? 
? 

DECLARE FUNCTION Examine% LIBRARY? 
DECLARE FUNCTION ExNext% LIBRARY? 
DECLARE FUNCTION Locks LIBRARY? 
DECLARE FUNCTION AllocMemS LIBRARY? 
DECLARE FUNCTION IoErr% LIBRARY? 
? 

LIBRARY "dos. library"? 
LIBRARY "exec. library"? 
? 

var: '* Variable / array set-up? 
x% - 100? 

DIM SHARED dir.name$ (x%) ? 
DIM SHARED dir.prot$ (x%) ? 
DIM SHARED dir.type$(x%)? 
DIM SHARED dir. sizes (x%) ? 
DIM SHARED dir. blocks* (x%)? 
DIM SHARED dir.comm$ (x%) ? 
? 
demo: ' *Demonstration? 

PRINT "Searching..."? 
GetDir "df0:",x%? 
FOR loop% ■= TO x%? 
CLS? 

PRINT "Entry number: ";loop%+l? 
COLOR 0,1? 

PRINT dir.name$(loop%)? 
COLOR 1,0? 
PRINT "Protection 



PRINT "Type 
PRINT "Size 



PRINT "Blocks 
PRINT "Commentary 
PRINT STRINGS (60, 
WHILE INKEY$-="":WEND? 
NEXT loop%? 

LIBRARY CLOSE? 

END? 

? 
SUB GetDir (dir$, max%) STATIC? 
a.read% - -2? 
mode$(0) = "delete-,"? 
mode$(l) = "execute-,"? 
modeS (2) - "write-,"? 
mode$(3) - "read-,"? 



";dir.prot$ (loop%) ? 
";dir.type$ (loop%) ? 
" ; dir . sizes (loop%) ? 
";dir.blocksS (loop%) ? 
";dir.comm$ (loop%) ? 
)? 
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dirO$ - dir$ + CHR$(0)3 

buffers - 2522 

adds - Locks (SADD(dirO$) , a. read*) 3 

IF adds - THEN3 

PRINT"Directory doesn't exist. "3 

EXIT S0B3 
END IF3 
3 

opts - 2 A 163 

infos = AllocMemS (buffers, opts) 3 
IF infos - THEN ERROR 711 
3 

auc% - Examine% (adds, infos) 3 
IF suc% - THEN! 

PRINT "Can't find the subdirectories. "3 
EXIT S0B3 
END IF3 

WHILE e% O 2325 

dir. names - infos + 83 
FOR loop* - TO 2991 

check* - PEEK(dir.name+loop%)3 
IF check%O0 THEN3 

check$ - check$ + CHR$ (check*) 3 
ELSE3 

loop* =291 
END IF3 
NEXT loop%3 
3 

dir. name$ (counter*) ■= check$3 
check$ = ""3 

protS = PEEKL (infoS + 116)3 

IF protSOO THEM 

FOR loop* = 3 TO STEP -II 

IF (protS AND 2*loop%) <>0 THEN3 

prot$ = prot$ + mode$(loop%)3 
END IF3 

NEXT loop%3 

add$ - LEFT$(prot$,LEN(prot$)-l)+"protected."3 

dir. prot$ (counter*) => add$f 

prot$ - ""3 
END IF3 
3 

types - PEEKL (infos + 120)11 
IF types < THEN3 

dir. type$ (counter*) - ''FILE"3 
ELSEIF counter* = THEN3 

dir. type$ (counter*) - "C0RR.DIR"3 
ELSE1 

dir. type$ (counter*) - "DIR" 3 
END IF3 
3 

dir. sizes (counter*) - PEEKL (infoS + 124)3 
dir. blocksS (counter*) - PEEKL (infos + 128)3 
3 
FOR loop* - TO 793 

check* = PEEK (infos + 144 + loop*) 3 

IF check*O0 THEN3 

check$ - check$ + CHR$ (check*) 3 

ELSE3 

loop% =793 

END IF3 
NEXT loop%3 
3 

dir. comm$ (counter*) = check$3 
check$ = ""3 

sue* = ExNext%(addS,infoS)3 
IF suc% - THEN3 

e% = IoErr%3 
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IF e%0232 THEN5 

PRINT"Error in directory. " 5 

EXIT SUM 
END IF5 



counter% ■» counter % + If 
IF counter% > max% THEN1 

e% ■» 2323 
ELSE! 

e% - OS 
END IFfl 
END IFI 
WEND1 
1 

CRLL FreeMem (infos, buffers) 5 
CALL Unlock (adds) f 
max% = counter % fl 
END SUBI 



Variables 



Program 
description 



dir.name$ () 

dir.prot$() 

dir.type$() 

dir. size& () 

dir.blockss () 

dir.comm$ () 

dir$ 

max% 

a . read% 

mode$ ( ) 

dirO$ 

buffers 

adds 

opts 

infos 

sues 

e% 

check% 

check$ 

prots 

types 

counters 



file/directory name 

file protection status 

type:DIRorFILE 

program size in bytes 

program size in diskette blocks 

comment string 

name of directory to be read 

maximum number of desired entries 

ACCESS_READ 

protection mode 

null-terminated dir $ 

size of necessary buffer 

BPTR pointer to lock structure of directory being 

read 

memory option, MEM_CLEAR = clear memory 

starting address of buffers byte sized buffer 

DOS function error flag;0=error 

I/OErr() flag; 232 = NO 

ASCII code of character read 

string read 

protection bits 

type bits 

counter for found entries 



GetDir reads the name, protection status, type, size and commentary 
of every file on the directory. The maximum number of entries depends 
on the size of x%. This example sets x% to 100, supplying room for 
100 entries. If you have a directory containing more than 100 entries, 
simply increase the number assigned to x%. Remember that this takes 
up memory. 

The SUB program searches for the directory named in dir $. If the 
named directory doesn't exist, the program displays an error message and 
exits the SUB program. The program allocates a 252-byte buffer when 
it finds the directory. Examine ( ) loads the information of the first 
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directory entry into the buffer. The WHILE/WEND loop that follows 
filters the information from this block of memory and places the values 
into the corresponding arrays. ExNext ( ) looks for the next entry and 
performs the above processes. All entries are read until a 
NO_MORE_ENTRIES error (code 232) occurs. This ends the 
WHILE/WEND loop, closes the buffer and unlocks the Lock structure. 

The last line of this SUB, max%=counter%, is extremely important 
This example lets GetDir store up to 100 entries, but there are few 
directories that contain that many entries. Therefore, it's important for 
the program to know when it reaches the last entry on the diskette. One 
solution is to declare a variable as SHARED, give it the number of 
entries found and pass this information on to the main program. This 
program has a simpler and more elegant solution: All parameter vari- 
ables in the SUB...STATIC lines are automatically declared as SHARED. 
The number of entries automatically goes to max%. The main program 
call can then look like mis: 

max% - 100 
U 

GetDir "SYS:", max% 
FOR loop% - 1 to max% 

NEXT loop* 

After the GetDir call, max% receives the correct number of found 
entries. 

The info block in infos has the following format 



+000 
+004 

+008 

+116 



+120 
+124 
+128 
+132 
+136 
+140 
+144 



LONG 
LONG 



LONG 



LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
CHAR 



Disk lock 

Buffer contents type (greater then 0: Dir) 

Entry name (only 30 of the 118 bytes are 
usable) 

Protection bits (definitions of least 
significant bytes) : 
Bit Meaning 

Delete 

1 Execute 

2 Write 

3 Read 

Entry type (greater than 0=Dir) 

Bytes in file 

Blocks in file 

Days since January 1, 1978 

Minutes since midnight 

Ticks since the last minute 

Comment, previously only 80 bytes usable 
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AmigaDOS works with a variety of subdirectories. The main directory 
on the Workbench diskette named Workbench contains subdirectories 
like fonts, in which the system fonts are stored. There are other 
subdirectories inside fonts like sapphire, which houses the 
various sapphire fonts, ruby which contains the ruby fonts, etc. 
This tree can have even more subdirectories inside subdirectories. 

Subdirectories increase the readability of a directory. But have you ever 
looked at such a directory with the FILES command? The files of the 
current directory appear on the screen, but subdirectories are only listed 
by name, not listed in detail. You can access each subdirectory by using 
CHDIR to change directories, but this can be inconvenient. 

The following program looks for all the files on a diskette, ignoring the 
directories. This bypasses the whole tree structure. First the printout 
displays the files in the main directory, then the files in all of the 
subdirectories of the main directory, then all the subdirectories in these 
subdirectories, and so on. The program sends the output directly to a 
printer, since there is more information than can fit on the screen. 

To keep the list readable, the program also prints the name of the 
directory currently being printed. Also, the program size in bytes and 
blocks, as well the entry type (FILE or DIRECTORY), list on the 
printout The entries are printed in alphabetical order. 

• ########################5 

•# #! 

'# Program: GetTree #! 

'# Author: tob #! 

•# Date: 4.8.87 #5 

•# Version: 1.0 #! 

•# n 

• ########################n 

DECLARE FUNCTION Examine% LIBRARY! 

DECLARE FUNCTION ExNext% LIBRARY! 

DECLARE FUNCTION Locks LIBRARY! 

DECLARE FUNCTION AllocMemS LIBRARY! 

DECLARE FUNCTION IoErr% LIBRARY! 

! 

LIBRARY "dos. library"! 

LIBRARY "exec. library"! 

! 

var: '* Variable / array set-up! 

x% - 100! 

y% = 100! 

DIM SHARED dir.name$ (x%) ! 

DIM SHARED dir.prot$ (x%)! 

DIM SHARED dir.type$(x%)! 

DIM SHARED dir. sizes <x%) ! 

DIM SHARED dir.blocksS (x%) ! 

DIM SHARED dir.commS (x%) ! 

DIM a$(y%)! 
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DIM aS(y%)l 
filler $ - •'."! 
count% = 11 
fil$ = " "1 
H 
demo: '* Application 5 

GOSUB PrintTreef 
1 
LIBRARY CL0SE5 
END5 
5 
PrintTree: '* This uses GetDir...5 
GOSOB Specifier! 
GOSUB Header! 
GOSOB Level 1 
! 
Entry: FOR loop% «• previous TO count% -1! 
IF a&(loop%) = Level% THEN! 
search$ = a$(loop%)l 
z% » x%! 

GetDir search$, x%5 
max% = x%! 
x% = z%5 
sort! 

LOCATE 1,15 

PRINT "Print ";a$ (loop%) ;5 
PRINT STRING$(60,fil$}! 
5 
IF loop% = THEN! 

a$(0) - dir.name$(0) + ":"! 
END IF! 

z$ = a$(loop%)5 

directory$ - LEFT$(z$, LEN(z$) -1)5 

5 

LPRINT! 

LPRINT "Directory: l";directory$5 

5 

FOR show% - 1 TO max%! 

info$ - dir.name$(show%)! 

1 

diff% = 32 - LEN(dir.name$(show%))! 

IF dif f%X> THEN! 

info$ - info$ + STRING$(diff%,filler$)! 

END IF! 

1 

IF dir.type$(show%) 0"DIR" THEN! 

info$ - info$ + dir.type$ (show%)! 

info$ = info$ + "." + dir.prot$(show%)! 



FOR fill% - LEN(dir.prot$(show%)) TO 



3! 



info$ - info$ + filler$! 

NEXT fill%5 

LPRINT "- "; info$;l 

LPRINT USING "#######"; 
dir.size&<show%);! 

LPRINT "Bytes, ";! 

LPRINT USING "###"; 
dir.blocksMshow%);| pRINT „ blocks .„ 5 

ELSE! 
fl - 11 

LPRINT "- " + info$ + "DIRECTORY"! 
a$(count%) - a$(loop%) + 
dir.nam e $(show%) + ^g ount%) m ^1* + 15 
count% = count% + 15 
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END IF! 

NEXT show%5 

END IF! 
NEXT loop%I 
previous % - loop%! 

IF f 1 - 1 THEN! 
fl - 05 

Level% - Level% + 15 
GOSOB Level! 
GOTO Entry! 
END IF! 
GOSUB EndTree! 
RETURNS 
5 
Specifier: 5 

LINE INPUT "Which disk drive (0-3)?"; dr$5 
dr% - VAL (RIGHTS (dr$,l))! 
dr$ = RIGHTS (STR$(dr%>, 1)5 
a$(0) = "df"+ dr$ +•*:"! 
RETURN! 
5 
Header: '*Print header! 

LPRINT "* DOS DIRECTORY *"! 
LPRINT! 

LPRINT " (C) 1988 by Abacus for Amiga Tricks 
and Tips"! 

* LPRINT! 
LPRINT ! 
RETURN! 
5 
Level: '* Current level of disk hierarchy! 
LPRINT STRINGS (70, " ")! 
LPRINT! ~ 

LPRINT "Level" ;Level%! 
RETURN! 
! 
EndTree: •* End printout! 

LPRINT STRINGS (70," ")5 
LPRINT! ~ 

LOCATE 1,15 

PRINT "OK." + STRINGS (60, fil$)! 
RETURN! 
SUB sort STATIC! 
SHARED max%, fil$! 
LOCATE 1,15 
PRINT "Sorting ";dir.name$ (0) /STRINGS (60, fil$)5 

i 
5 
FOR mode% ~ TO 15 

FOR sortl% - 1 TO max%5 

FOR sort2% = sortl% + 1 TO max% - 15 
IF mode% = 1 THEN! 

bb$ - dir.type$(sortl%)5 
aa$ •= dir.tvpe$(sort2%)5 
ELSE! 

aa$ - dir.name$(sortl%)! 
bb$ = dir.name$(sort2%)5 
END IF! 
5 

IF UCASE$(aa$)>UCASE$(bb$) THEN! 
SWAP dir.nameS (sortl%) , 
dir.nameS (sort2%) 5 

SWAP dir.protS (sortl%) , 
dir.protS (sort2%) 5 

SWAP dir.type$(sortl%), 
dir.type$ (sort2%) 5 
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SWAP dir. sizes (sortl%) , 
dir. sizes (sort2%) 5 

SWAP dir.blocksS (sortl%) , 
dir. blocks* (sort2%) 5 

END IF! 
NEXT sort2%! 
NEXT sortl%! 
NEXT mode%5 
LOCATE 1 15 

PRINT "Ready. ";STRING$ <70,fil$)5 
END SOB! 
5 

SOB GetDir (dir$,max%) STATIC! 
a.read% - -25 
mode$(0) - "delete-, "5 
mode$(l) - "execute-, "5 
mode$(2) - "write-,"! 
mode$(3) = "read-,"! 
dirO$ - dir$ + CHR$(0)5 
buffers - 2525 

adds = Locks (SADD (dirO$) , a.read%)5 
counter% ■= 05 
e% = OH 
IF adds - THEN! 

PRINT"Directory doesn't exist."! 
EXIT SOB! 
END IF! 
! 

opts - 2 A 165 

infos - AllocMemS (buffers, opts) 5 
IF infos - THEN ERROR 75 

! 

suc% = Examine% (adds, infos) 5 

IF suc% = THEN! 

PRINT "Can't find the subdirectories."! 
EXIT SUB! 
END IF! 
! 

WHILE e% <> 232! 

dir. names - infos + 8! 
FOR loop% - TO 29! 

check% = PEEK (dir. names +loop% ) ! 
IF check%00 THEN! 

check$ = check$ + CHR$ (check%) ! 
ELSE! 

loop% «• 29! 
END IF! 
NEXT loop%! 

5 

dir.name$(counter%) = check$! 

check$ = ""! 

grots = PEEKL(infoS + 116)! 

IF protSOO THEN! 

FOR loop% =3 TOO STEP -15 

IF (protS AND 2 A loop%) <>0 THEN! 

prot$ = prot$ + mode$ (loop%) ! 
END IF! 
NEXT loop%! 

add$ - LEFT$(prot$,LEN(prot$)-l)+"protected."1 
dir.prot$(counter%) » add$5 
protf = ""! 
END IF 5 

5 

types = PEEKL (infos + 120)5 

IF types < THEN! 

dir.type$(counter%) - "FILE"! 
ELSEIF counter% - THEN5 

dir.type$(counter%) = "CDRR.DIR"5 
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ELSE5 

dir . type$ (counter% ) 
END IF5 



"DIR" 5 



PEEKL (infos + 124) 5 
= PEEKL (infos + 128)5 



dir. sizes (oounter%) = 

dir.blockss (counter%) 

5 

FOR loop% = TO 791 

oheck% = PEEK (infos + 144 + loop%) IT 
IF check%O0 THEN5 

check$ = check$ + CHR$ (cheok%) 5 
ELSE5 

loop% =795 
END IF5 
NEXT loop%5 
5 

dir.comm$(counter%) = check$5 
check$ = ""f 
5 

suc% = ExNext% (adds, infos) 5 
IF suc% = THEN5 
e% = IoErr%5 
IF e%<>232 THEN5 

PRINT"Error in directory. "f 
EXIT S0B5 
END IF5 
ELSE5 

counter% = counter % +15 
IF counter% > max% THEN5 

e% = 2325 
ELSE5 

e% = 05 
END IF5 
END IF5 
WEND5 
5 

CALL FreeMem (infos , buffers ) 5 
CALL Unlock (adds) 5 
max% = counter%5 
END SUB5 
5 



Variables y% : maximum number of subdirectories 

filler$ fill character 

f i 1 $ second fill character 

count % directory counter 

dr $ disk drive number 

dr% count number 

previous % previous loop value 

level % hierarchy level 

search$ name of directory under research 
directory$ directory name 

show% display loop variable 

info$ directory information 

mode% 0=DIRMLE, l=alphabetical sort 

s o r 1 1 % bubble sort loop 1 

s o r 1 2 % bubble sort loop 2 
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All new entries in a$ (x) are examined in the loop loop%. At first 
Program this entry is just df x : . The GetDir subprogram reads the corres- 

description ponding directory and initializes the appropriate Dirxxx ( ) arrays. 
These are then sorted by Sort. If loop% = (first entry), then the 
directory name is printed. a$ (loop%) contains the name of the 
current directory with a zero byte added to the end of the name. This 
zero byte is removed when the name is printed. The show% loop then 
displays all the entries in the current directory, previous % is set to 
the end of the previous data block in a$ ( ) so that it points to new data 
for the next pass. 

If f 1 = 1, meaning that there is at least one directory on the next level, 
the next directory is printed. 

Sort sorts the entire set of data contained in the current directory. This 
occurs through a bubble sort procedure. The directory actually sorts 
twice. The first sort criterion is in alphabetical order (modus%=0). Then 
from the alphabetized list, the data records sort by type. The end result 
is data sorted by filename, filetype and directory. 
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Have you ever read a data record using the BASIC OPEN/ INPUT#1 
/CLOSE commands? This works fine in most cases, but not always. If 
a text contains zeros, AmigaBASIC treats zeros as CHR$ ( ) and 
removes them from die text display. 

You may not see this as a problem, but data records often contain zeros. 
For example, when a program stores number information in string 
form. Or, when you want to look at the .bmap files mentioned in 
Chapter 3. 

DOS commands are an alternative to BASIC commands. The following 
program offers the necessary SUB components. It has four commands: 
OpenFile, CloseFile, ReadFile and SeekFile. OpenFile 
is the equivalent of OPEN, and opens the file for DOS read access 
CloseFile closes a file like BASIC'S CLOSE. ReadFile reads a 
string of any length from the open data record (this string can contain 
null bytes). SeekFile can move the internal "pointer" around the 
data. This pointer signals the place within the open file where the next 
ReadFile command should begin. 

To help you adapt this routine to real-life applications, this program 
includes the SUB routine ExBMAP. It only works in conjunction with 
the DOS routines (SeekFile is unused in the sample program 
below). This SUB helps you view the .bmap files from Chapter 3. 
These files contain the names and parameters of several hundred 
machine language routines kept in ROM by the Amiga. The SUB in 
this program looks at the files in the libs directory of the Workbench 
diskette. If your .bmap files are in another directory or on another 
diskette, then you must change the appropriate line in the SUB. 

The program reads die .bmap file dos.bmap. It displays the command 
names, offsets and parameters in this file. You can easily make sure 
that your .bmap files are complete, and identify the newest versions 
and/or errors. A further application is reading unknown .bmap files, if 
only to see when machine language routines are in the file. 

' ########################! 
'# #f 

'# Program:bmap decoder #! 
'# Author: tob #! 

•# Date: 4.8.87 #! 

'# Version: 1.0 #! 

'* #! 

• ########################1 

! 

DECLARE FDNCTION xReadS LIBRARY! 

DECLARE FUNCTION xOpenS LIBRARY! 

DECLARE FUNCTION Seeks LIBRARY! 

'xCloseO! 
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1 

LIBRARY "dos. library"! 

! 

ExBMAP "dos.bmap"! 

! 

SOB ExBMAP (lib$) STATIC! 

SHARED anerror, handles, store$, xEOF! 
file$ - "LIBS"+lib$! 
**Change LIBS to whatever directory you need! 

! 
<* Open file! 
OpenFile file$! 
IF anerror - 1 THEM 

ErrorMesaage! 
END IF! 
5 

•* Read file! 
CLS! 

WIDTH "scrn:", 1501 
COLOR 0,311 

PRINT "Contents of library file ";file$! 
PRINT! 

ReadFile handles, IS! 
IF anerror - 1 THEN! 

ErrorMesaage! 
END IF! 
WHILE xEOFOl! 

code% - PEEK(SADD(store$))! 

IF (flag - 3 AND code% - 0) THEN! 

flag - 45 
END IF! 
1 

IF flag - THEN! 
IF code% > THEN! 

command$ - command$ + CHR$(code%)! 
END IF! 
ELSEIF flag - 1 THEN! 
hi% - code%! 
flag - 2! 
ELSEIF flag - 2 THEN! 
lo% - code%5 
values - hi%*256 + lo%! 
offset% - 2 A 16 - values! 
flag - 3! 
ELSEIF flag = 3 THEN! 

IF code% < 9 THEN! ^ m 

attr$ - attr$ + "d" + RIGHT$(STR$(code%-l) ,1)1 

ELSE! 

attr$ - attr$ + "a" + RIGHT$ <STR$ (code%-9) ,1)1 

END IF1 

attr$ - attr$ + ", "1 
ELSEIF flag - 4 THEN! 
flag - 0! 

outl - commands + " ("1 _ A inx m 
IF attr$ - "" THEN attr$ - SPACES (2)1 
out$ - out$ + LEFT$(attr$,LEN(attr$)-2) + ")"! 

1 

COLOR 2,1! 
PRINT "Offset: ";! 
PRINT USING "####";offset%;! 
PRINT "... ";! 
COLOR 1,2! 

PRINT " "; out$;STRING$(60, " ")! 
out$ - ""! 

command$ - ""! 
attr$ = ""! 
of fset% =■ 0! 
END IF! 
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IF (command$ O "•' AND code% - 0) THEOT 
flag - H "*■"* 

END IFS 

I 

ReadFile handles, lsl 

IF anerror - 1 THEN! 

ErrorMessageS 
END IFI 
WENDI 

CloseFile handles! 
COLOR 3, OS 
PRINT "A-0K."S 
COLOR II 
END SOBS 
S 

SOB ErrorMessage STATICS 
SHAR ED handles 5 
BEEPI 

PRINT "Sorry, an error occurred."! 
CloseFile handles! 
END SOBS 
I 

SOB OpenFile (dat$) STATICS 
SHARED anerror, handles I 
handles - xOpenS (SADD (dat$) , 1005) S 
IF handles ■= THENS 
anerror ■» IS 
EXIT SOBS 
ELSES 

anerror - OS 
END IFI 
END SOBS 
S 

SOB CloseFile (hands) STATICS 
IF handSOO THENS 

CALL xClose (hands) S 
ELSES 

BEEPI 
END IFS 
END SOBS 
S 

SOB ReadFile (hands, numS) STATICS 
SHARED anerror, store?, xEOFS 
IF hands <> THENS 

store$ - SPACE$ (nums+10) I 

?F J LicV** a ?*J2!522 11 ' SADD ( s tore$),numS)S 
IF gels < numS THENS 

xEOF ■» IS 
ELSE! 

xEOF - OS 
END IFI 
anerror ■= OS 
ELSES 

anerror •» II 
END IFS 
S 

'Seekfile hands, IS 
END SOBS 

s 

SOB SeekFile (hands, of fset%) STATICS 

old% - Seeks (hands, offset%, 0) S 
END SOBS 



Variables lib$ name of the desired . broap file 

handles File handle of the xOpen command 

store$ memory string for Read 
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xEOF 

file$ 

anerror 

code% 

command$ 

hi%, lo% 

attr$ 

out$ 

hands 

reds 



End-Of-File: l=end of data block 
full name of file to be opened 
1=DQS I/O error 
read character 
machine command read 
high and lowbyte of offset 



output string 

local handles variable 

number of bytes actually read 



The OpenFile SUB opens the desired file for input. You enter the 

Program name of the file; the routine returns a file handle. This handle goes into 

description the variable handles and must be used by later SUBs The value m 

handles corresponds to the file number used in the BASIC OPEN 

command. This helps DOS to remember which file to handle. 

The ReadFile SUB reads any number of characters from a file opened 
by OpenFile. You enter the file handle returned from OpenFile, as 
well as the number of bytes you want read. Both these entries go into a 
& variable. For example: 

OpenFile "Example" 
ReadFile handles, 100s 

This example reads 100 bytes from the file named "Example." The 
SUB stores the read bytes into store$. When the SUB reaches the end 
of the file, xEOF=l. Otherwise, xEOF=0. 

SeekFile moves the internal data pointer to any offset from the 
current pointer position. You enter the file handle and the positive or 
negative offset 

loop: 

ReadFile handles, 100S 

SeekFile handlS, -100 

The above example reads the same 100 bytes again. 

CloseFile closes a file opened by OpenFile (this is absolutely 
necessary). The command requires the file handle as input 

Now for the sample program, the ExBMAP SUB. It waits for the name 
of a .bmap file (any file with the .bmap suffix). The program searches 
for the file in the Workbench directory libs :. If the file doesn't exist 
an error message appears on the screen. Otherwise, the routine reads the 
file. A character loads into memory from ReadFile and goes into 
code%. If flag is equal to 0, then the program reads the command 
name. If code% is equal to 0, however, that means that the command 
names are done. This increments flag by 1. Now the program reads 
the high byte of the offset and increments flag by 2. The low byte is 
then read, the value computed and subtracted from 2 16 of the library 
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25 ?/ S^T" 6, ^ reSult goes mto of f set% - f la * becomes 
equa to 3. The input parameters are set If code% > 9, then they 

handle address registers aO to a4. If code% < 10, then they are at the 

data registers do to d9. As soon as code% is equal to 0, flag is 

equal to 4 The entire set of information appears on the screen as a 

string. Finally the variables clear for the next round. The program reads 

another character. When it reaches the end of the file (xEOF = 1) the 

program exits the while/wend loop and closes the file 
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5.8 CLI from AmigaBASIC 



The Command Line Interface (CLI) can also be used directly from 
AmigaBASIC programs. The AmigaBASIC disk commands can be 
enhanced by a complete set of disk-oriented commands. The following 
program uses the DOS library and gives you a new BASIC command, 
CLI, which can be used to execute any of the CLI commands. The 
format is: 

CLI "command string" 

This example sends the fonts subdirectory of the disk in drive to 
the printer 

CLI "list dfO:fonts keys toprt:" 
Here's the program listing: 

•##############################5 

'# Program: CLI from BASIC #! 
•# Date: 7/26/87 #! 

•# Author: tob #! 

'# Version: 2.0 #! 

•##############################5 
! 

PRINT "Loading libraries ... "5 
DECLARE FUNCTION xOpenfi LIBRARY! 
DECLARE FUNCTION Exeoute% LIBRARY! 
LIBRARY "dos. library"! 

main: '*CLI gets called here! 
CLI "LIST SYS: QUICK" ! 
! 
finish: '*End demo! 

LIBRARY CLOSE! 
END! 
! 
SUB CLI (command$ ) STATIC! 
SHARED error. code%! 
work$ = command$ + CHR$(0)! 
count %=0! 

** start output! 

out.filename$ - "RAM:cli out"! 
out$ - out. filename$ + CHR$(0)! 

! 

out .handles - xOpenS (SADD (out$) , 1006) ! 

IF out.handle&-0 THEN! 

error. code% = 1! 

BEEP! 

EXIT SUB! 
END IF! 
! 
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'*CLI command execution! 

s&Sc^'sk: w ork$) ' °' ° ut • handie& > * 

error. code% - 21 
BEEP! 
EXIT SOB! 
END IF! 

5 

^.«T? n( i.? ut P ut and oonpute parameters! 

CALL xClose (out. handles)! 

text.height% - PEEKW(WINDOW(8)+58)! 

window. height% - PEEKW(WINDOW(7)+10)-H! 

lines% - INT(window.height%/text.height%)-3! 

! 

'* Send result to the RAM disk! 
OPEN out.filename$ FOR INPUT AS 1! 
WHILE (EOF(1)=0)! 
INPDT#1, reader$! 
PRINT reader$! 
count%=count%+l! 
IF count%>lines% THEN! 
count%=0! 

PRINT**<«Press any key to continue>»";! 
WHILE INKEY$="":WEND! 
PRINT! 
END IF! 
WEND! 

PRINT "## End output ##"! 
CLOSE 1! 

KILL out.filename$! 
END SOB! 



Variables 



Program 
description 



command$ 

error.code% 

work$ 

count % 

out.filename$ 

out$ 

out.handle& 

follow% 

text.height% 

window . height 

lines% 



CLI command sequence 

DOS error 

command string terminated by null 

counter 

output device name 

output device name terminated by null 

file handle for output device 

execute command result; O=false=error 

height in pixels of present font 

window height in pixels 

number of text lines in current window 



The heart of this program is the DOS function Execute. This routine 
calls the necessary cli routines. Before that can happen, a proper out- 
put device must be opened. This can be a window, the printer or a disk 
file. Since this CLI display in the BASIC window is unable to access 
DOS, you can specify the RAM disk as an output medium. As soon as 
Execute stores its information, you can transfer the data from the 
RAM disk to the main window and edit data from there. 

Execute waits for three entries: A pointer to the command string 
terminated by a null; an input device (0 in this case); and the above- 
mentioned output device (the file handle of the xOpen call). If the com- 
mand executes correcdy, f ollow% is greater than or less than 0. When 
this is equal to 0, a DOS error occurs. 
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After the Execute function runs, the result goes into the RAM disk. 
The type of result depends upon the type of command used. For 
example, if you start Preferences like this, no information goes to 
the RAM disk: 

CLI "SYS Preferences" 

This call waits until the user is ready to reconfigure the computer. The 
next call activates the multitasking system: 

CLI "run SYS :pref erences" 

This continues with your BASIC program immediately after Prefer- 
ences opens. 

CLI "list dfO:" 

The above command stores data on the RAM disk. 

The file in the RAM disk closes through the xClose command, then 
loads its data character by character into memory with the help of the 
BASIC commands OPEN and CLOSE. A certain number of lines appear 
on the screen before it scrolls up. The SUB waits for a keypress from 
the user before it continues with the output At the end, the RAM disk 
is erased with KILL. 

You can use almost all CLI commands from the BASIC CLI com- 
Note: mand. There are just two things to remember: First, you can't change 

the current directory with cd, since AmigaBASIC still has control over 
directories with CHDIR. Second, you can't use the asterisk (*), since 
this CLI doesn't use the CLI window. 
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6 . AmigaBASIC internals 



AmigaBASIC has a very powerful command set. The manual that 
comes with it, however, contains many unclear descriptions of 
commands. Those of you who may have owned another computer 
before buying an Amiga probably had a number of utility programs. 
Utilities help programmers to program better. Some utilities help users 
change programs, create new program code or extract old program code. 
Others allow you to load any program at another starting address. 

Since memory manipulation is so complex on the Amiga, there are no 
memory handling programs in this chapter. However, there are a num- 
ber of other utilities here to let you change program code. The authors 
have devised a diskette configuration so that you can load a program 
into a utility, change the program and save the program back in its 
edited form. This configuration uses internal drive df : , the RAM 
disk ram:, and any external drives (optional). More on diskette 
configuration later. 

Before continuing with the utilities, you must know about the filetypes 
supported by AmigaBASIC. Section 6.2 gives detailed information 
about Amiga file structues. This information will help you later on 
with adapting these utilities to your own uses. 
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6.1 File analyzer 



This program lets you display the programs in the following chapters. 
It acts as a simple file monitor, independent of die built-in CLI editor 
and the AmigaBASIC editor. The program is menu controlled. The left 
border of the screen displays me offset address from the beginning of the 
file. The screen's center shows 16 bytes in hexadecimal notation. The 
right border of the screen lists the same data in ASCII form. When you 
want to expand the program, remember to adjust the menu activation 
and de-activation as needed. 

GOTO start! 

######################################5 

# FILE-ANALYZER AMIGA #! 

# #s 

# (W) 1987 by Stefan Maelger #! 
################*#####################! 

II 

"dos.bmap" and "exec.bmap" must! 
exist on the Disk or in LIBS: 5 



Declare 
! 
start:! 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 



ROM functions and routines! 



FUNCTION xOpenS LIBRARY! 
FUNCTION xRead% LIBRARY! 
FUNCTION AllocMemS LIBRARY! 
FUNCTION Examine* LIBRARY! 
FUNCTION Seek% .... LIBRARY! 
FUNCTION Locks LIBRARY! 



Open Libraries! 
fl 

LIBRARY "exec. library"! 
LIBRARY "dos. library"! 



Initialize screen and window! 
! 
SCREEN 2,640,200,1,2! 
WINDOW 2," FILE-ANALYZE R",,0,2! 

MENU 1,0,1, "File"! 
MENU 1,1,1, ••Open"! 
MENU 1,2,0, "Close"! 
MENU 2,0,0, "Block"! 
MENU 2,1,1, "Next"! 
MENU 2, 2,0, "Back"! 



Setup InfoBlock and Buffer! 
5 
InfobytesS = 252! 
BufferbytesS-= 400! 
PublicRAMS =655375! 
ChipRAMS -65538S! 
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Infos -AllocMemS (Inf obytesS ,ChipRAMS )! 
BufferS-AllocMemS (Buf f erbytess , PublicRAMS ) 1 
IF lnfo&-0 OR BufferS-0 THEN ERROR 75 

1 

ON MENU GOSUB menus! 

MENU ON! 
1 

WHILE NOT finished! 

WEND! 

5 

CALL FreeMem (Buffers, Buff erbytess) 5 
CALL FreeMem (Infos ,InfobytesS )f 
LIBRARY CLOSE 1 

END! 
. fl 

' Menu-Selection result 5 

'! 

menus: 5 

number=MENU (1) +2*MENU (0) -25 

ON number GOTO fopen,fclose,bnext,bback5 
5 
fopen:! 

MENU OFF! 

CLS5 

LINE INPUT "FILENAME: ";Filename$5 

File$=Filename$4CHR$ (0) 5 

DosLockS=LockS (SADD (File$) , -2) ! 

IF DosLockS-0 THEN! 

PRINT :PRINT "File not found!"! 

MENU ON! 

RETURNS 

END IF! 
! 

DummyS=-ExamineS (DosLockS, InfoS) 5 



5 



IF PEEKL(InfoS+4)>0 THEN! 

PRINT :PRINT "Can't display Directories! "5 

CALL UnLock (DosLockS) 5 

MENU ON: RETURN! 
END IF! 

Lengths-PEEKL (Inf oS+124) ! 
CALL UnLock (DosLockS) 5 
HandleS=xOpenS (SADD (File$) , 1005) ! 
IF HandleS=0 THEN! 

PRINT : PRINT "Can't open file!"! 

MENU ONf 

RETURNS 
END IF! 

inBuf f er%=xRead% (Handles , Buffers , 400) 5 
Block%«»l ! 

IF LengthS>400 THEN MENU 2,0,15 
MENU 1,1,01 
MENU 1,2,11 
CLS 1 
PRINT "File: ";Filename$;TAB(38) ;" Length: ";LengthS;5 

PRINT " Byte"! 

Display Buffers , inBuf fer% , Block%5 

MENU ONI 

RETURN! 
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fclose:5 

MENU 0FF5 

CALL xClose (Handles) 5 

CLS 5 

MENU 1,1,15 

MENU 1,2,05 

MENU 2,0,05 

MENU 2,1,15 

MENU 2,2,05 

MENU ON5 

RETURN5 
5 
bnext:5 

MENU OFF5 

inBuf fer%=xRead% (Handles , Buffers , 400) 5 

Block%=Block%+15 

MENU 2,2,15 

IF LengthS<=Block%*400 THEN MENU 2,1,05 

Display Buffers , inBuf fer% , Block%5 

MENU ON5 

RETURN5 

bback:5 
MENU 0FF5 

begin%-Seek% (Handles, -400-inBuffer%, 0) 5 
inBuf fer%=xRead% (Handles , Buffers ,400)5 
Blook%-Block%-l 5 
MENU 2,1,15 

IF Block%<2 THEN MENU 2,2,05 
Display Buffers, inBuf fer%,Block%5 
MENU ON5 
RETURN5 



—5 



' SUBroutine5 
•5 
5 

SUB Display (Buffers, Bytes%,Block%) STATIC5 
Counter%=05 

AddressS= (Block%-l) *336S 
FOR y=0 TO 20 5 

LOCATE y+3,l:COLOR 0,15 

PRINT RIGHT$ ("00000"+HEX$ (AddressS) , 6) ; " : •■; 5 

AddressS=AddressS+165 

FOR x=0 TO 155 

LOCATE y+3,x*3+95 

COLOR 1,05 

Counter%"Counter%+l 5 

w%=PEEK (Buf ferS+x+y*16) 5 

hexa$=RIGHT$ ("0"+HEX$ (w%) , 2) 5 

IF (w%>31 AND w%<128)OR w%>159 THEN5 

ASCII$°CHR$ (w%) 5 
ELSE5 

ASCII$= ,, ."5 
END IF5 

IF Counter%>Bytes% THEN hexa$=" ":&SCII$~" 
PRINT hexa$; 5 
LOCATE y+3,x+575 
COLOR 0,15 
PRINT ASCII$;5 
NEXT x,y5 
COLOR 1,05 
END SUB5 
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Variables Inf oBytes& size of file info structure 

Buff erbytess buffer size for file 

PublicRAMS range for allocate + clear 

ChipRAMs DMA range for allocate + range clear 

Inf o& address of file info block 

Buffers file buffer address 

finished dummy variable 

numbe r number of menu item 

Filename$ filename 

File $ filename ended with chr$ ( ) 

DosLock internal file number 

Dummy & dummy variable 

Lengths file length in bytes 

Handles internal file number 

inBuffer% number of bytes presently read into buffer 

Block% number of 400-byte block read 

begin% old start-of-file offset 

Counter % number of displayed bytes 

Addres s & read pointer 

w% value PEEKed from buffer 

hexa $ two-character display string for middle 

ASCI I $ single-character string for ASCII array 
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6.2 AmigaBASIC file 
structure 



AmigaBASIC's SAVE command lets users save programs in three dif- 
ferent ways: 

SAVE "Tesf.a stores the program Test as an ASCII file. 
SAVE "Test",b stores the program in binary form. 
SAVE "Tesf.p stores the program in protected form. 

Before you save a program, you should know what you want done with 
this file later on. That is, the purpose of a file, and the situations in 
which it is used later. 

A cr-r/ 4ii AS CII files are necessary when you want to combine files using 

azl,ii jiies merge or CHAIN. When you want to store a program as an ASCII 

file, you can reload it later and save it out again as an ASCII, binary 

(normal) or protected file. 

The disadvantage of ASCII files is the amount of memory they 
consume, especially when many variable names are used (more on this 
later). This disadvantage also applies to the entire concept of modular 
programming. 

_. _. Binary files are shorter; the computer converts commands and variables 

Binary files into tokens. A binary file can be saved out later in ASCII, binary or 
protected form. 

p . Protected files cannot be corrected or changed in any way. Once you 

Protected save a file in protected form, you can't change it Unlike the other file 

files forms, you can't resave a protected file in ASCII or binary form. Before 

saving a file as a protected program, make sure you have a backup copy 

or two of the file in ASCII or binary form. 



6.2.1 Determining filetype 



Now you may want to manipulate AmigaBASIC programs, whether 
they are on diskette or in buffer memory. As soon as you know the 
structure of an AmigaBASIC file, there should be no problem with 
this. 
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There is one glitch: Say you wrote a program that generates a new 
AmigaBASIC program from a program already on diskette. This pro- 
gram waits for the user to tell it which program he wants modified (let's 
assume that this program is on the diskette currently in the drive). The 
programmer must know whether this file is an AmigaBASIC file. 



6.2.1.1 Checking for a BASIC file 



This program examines a file and tells the user whether or not the file 
is an AmigaBASIC program. 

GOTO start! 

! 

MM ######################################1 

REM #BASIC-CHECK #! 

REM # #! 

REM # (W) 1987 by Stefan Maelger #5 

REM ######################################! 

! 

REM SUB-Routine to check whether a File! 

REM is a AmigaBASIC-Program! 

! 

start:! 

! 

DECLARE FUNCTION xQpenS LIBRARY! 

DECLARE FUNCTION xRead% LIBRARY! 

DECLARE FUNCTION Seek% LIBRARY! 
! 

LIBRARY "dos. library"! 
! 

main:! 
! 

CLS! 

LOCATE 2,2! 

PRINT "Name of AmigaBASIC-Program:"! 

LOCATE 4,1! 

PRINT ">";: LINE INPUT Filename$! 

BASICcheck Filename$,Flag%! 

LOCATE 6,2! 

IF Flag% THEN ! 

PRINT "It is an AmigaBASIC-Program!"! 

ELSE! 

PRINT "No, it's not an AmigaBASIC-Program. . ."! 

END IF! 

LIBRARY CLOSE! 

END! 
! 

SUB BASICcheck (Filename$,ok%) STATIC! 
! 

File$ = Filename$+".info"4CHR$(0)! 

Default. Tool$ - SPACE$(12)! 
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Open01dFile% - 10055 
OffsetEOF% - lfl 
Off set% •» -125 
5 

OpenFile:5 
5 

File. handles = xOpenS (SADD(File$) ,Open01dFile%) 5 
IF File. handles - THEN5 
CLS5 

LOCATE 2,23 

PRINT "I can't find ";Filename$;"!"5 
BEEP5 
EXIT S0B5 
ELSE5 

01dPosition%-Seek% (File. handles, Off set%,Off setEOF%) 5 

GotThem%=xRead% (File .handles , SADD (Default . Tool$) ,12)5 
IF GotThenft<12 THEN5 
CLSfl 

LOCATE 2,25 
PRINT "READ-ERROR"!! 
BEEP5 
EXIT SOB5 
ELSE5 

IF INSTR(Default.Tool$,":AmigaBASIC")>0 THEN5 

ok%—15 
ELSE5 

ok%=05 
END IF5 
END IFf 

CALL xClose (File. handles) f 
END IFf 
END SUM 

Variables Filename$ name of the potential AmigaBASIC program 

Flag% =-1: the file is an AmigaBASIC program 

ok% SUB variable indicator from flag% 

File$ name of the info file from Filename$+CHR$ ( ) 

Def ault.Tool$ 12-byte string, taken from die last 12 bytes of file$ 

Cpen01dFile% parameter used when file opens ( 1006=new file open) 

Of f setE0F% sets cursor to end of file during file read routine (-1= 

beginning, 0=present position) 

FileJiandles file handle address (0=file not open) 

01dPosition% old file cursor offset 

GotTherrft number of bytes read so far 
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Program 
description 



Note: 



If you've tried out the Info item from the Workbench pulldown 
menu, you've seen the Default Tool string gadget in the info 
window. Default Tool is the main program that loads when you 
double-click a program's icon. For example, if you double-click an 
AmigaBASIC program's icon, AmigaBASIC loads first, then the pro- 
gram loads and runs. So, the Default Tool gadget of an Amiga- 
BASIC program contains the entry : AmigaBASIC. Every Amiga- 
BASIC program (and most programs) have a companion file called an 
info file. This file has the same name as the program with an added file 
extension of .info. This info file holds the bitmap of the program's 
icon, as well as the Default Tool designation. 

To find out whether or not a file is an AmigaBASIC program, this pro- 
gram opens the matching info file, moves the cursor to a location 12 
bytes from the end of the file and reads the Default Tool gadget. 
Why 12 bytes? The entry only has 11 bytes, but AmigaDOS only 
accepts names ended by CHR$ ( ) . 

Some programs that allow icon editing and creation may not work quite 
right. These program errors can result in a misplaced Default Tool. 
You can get around mis error by raising the number of bytes you want 
read. 



6.2.1.2 Checking the program header 



Now you know how to identify a file as an AmigaBASIC program. 
You still can't change the program yet; you have to determine the 
program type before any changes can be made. The AmigaBASIC inter- 
preter must know the program type. 



Header 
bytes 



The first byte of an AmigaBASIC program conveys the program type. 
This byte is called the header byte. Programs stored in binary (normal) 
form and protected form attach this header byte to the beginning of the 
file. ASCII files contain no header bytes, since they don't need header 
bytes (see Section 6.2.2 below for details on ASCII file structure). 

The header byte assignments are as follows: 



$F5 
$F4 
no header byte 



binary program 
protected program 
ASCII file 



The program below performs this function. This program requires the 
dos.library routines xRead and xWrite. Remember to have this 
library file available on the diskette currently in the drive. 
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GOTO start! 

! 

' ########♦##♦##########################! 

'♦HEADER-CHECK #! 

. # #! 

» # (W) 1987 by Stefan Maelger #! 

' ######################################1 

'! 

' SUB-Routine to determine the File-Type! 
' of an AmigaBASIC-Program from the! 
' File-Headers. ! 



' ! 

start :! 
! 

DECLARE FUNCTION xOpenS LIBRARY! 

DECLARE FUNCTION xRead% LIBRARY! 

! 

LIBRARY "dos. library" 5 

! 
main:! 

ProgramType$(0)-"n ASCII-File"! 
ProgramType$(l)=" Binary-File"! 
ProgramType$ (2) -" Protected-Binary-File"! 

! 

LINE INPUT "Filename: >";Filename$! 

! 

HeaderCheck Filename$,Result%! 

! 

LOCATE 10,1! 
! 

PRINT "The Program ";CHR$(34);! 
PRINT Filename$; CHR$ (34);! 
PRINT " is a";ProgramType$(Result%)! 
! 

LOCATE 15,1! 
! 

LIBRARY CLOSE! 
END! 
! 
SUB HeaderCheck (Filename$, Result %) STATIC! 

! 

File$-Filename$+CHR$ (0) ! 

OpenOldFile%=1005! 

handleS=xOpenS (SADD(File$) ,0pen01dFile%) ! 

IF handleS-0 THEN ERROR 53! 

s$«="i"! 

ByteS~l! 

Count S-xRead% (handles, SADD(s$) , ByteS) ! 

CALL xClose (handles)! 

Result%-0! 

d%-ASC(s$)! 

IF d%-SHF5 THEN! 

Result%=l! 
ELSEIF d%=SHF4 THEN! 
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Result%=25 
END IFfl 

END S0B1I 

Variables PrograrrfType$ program type 

Filename$ name of the AmigaBASIC program 

Pesult% 0=ASCII; l=binary; 2-protected 

File$ Filename$+CHR$ ( ) 

Open01dFile% parameter used for open file 

handles file handle address 

s$ string from which first byte is read 

Bytes number of bytes to be read 

Beads number of bytes read so far 

d% ASCII value from s $ 



6.2.2 ASCII files 



ASCII file structure is really quite simple. Load AmigaBASIC and enter 
the following program code: 

PRINT aB 

Save this program using the following syntax: 

SAVE "Test",M 

Now quit Amig'aB ASIC and load up the file analyzer program from Sec- 
tion 6.1 (or use some other file monitor if you have one available). 
When the file analyzer finishes loading, select me Open item from the 
menu and enter the name of the program you just saved. 

The program code appears on the right hand side of the screen: 

a=l.PRINT a.. 

And the hex dump of the program appears on the left hand side of the 
screen: 

61 3D 31 OA 50 52 49 4E 54 20 61 0A 0A 

If you convert these hex numbers to decimal notation, they look like 
this: 

97 61 49 10 80 82 73 78 84 32 97 10 10 

Look in Appendix A of your AmigaBASIC manual for a list of ASCII 
character codes. Youll see that these numbers match the text. Character 
code 10 executes a linefeed (next line). 
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If you want to read a program saved as an ASCII file, use the following 
program in AmigaBASIC: 

LINE INPUT File$fl 

OPEN File$ FOR INPUT AS 15 

WHILE NOT EOF (1)1 
PRINT INPUT$(1,I); 

WENDf 
CLOSE II 

Insert your Workbench diskette. 

• Make sure the CLI is on in Preferences and start up the 
CLI. 

Enter the following: 

ed Diskname : Test 

Diskname is the name of the diskette on which you saved the Test 
program. You can edit ASCII programs using Ed (the editor) from the 
Workbench diskette. The main disadvantage to Ed is that you cannot 
test programs using it 

If you thought of simply creating a new program using OPEN name 
FOR OUTPUT, you had a good idea. The problem with that, though, 
comes up when you try loading the new program into the directory. The 
filename .info has no : AmigaBASIC listed as its Default Tool. 
Just do the following to create a new info file: 

SAVE "Dummy" : KILL File$+".inf o"fl 
NAME "Dummy.inf o" AS File$+".inf o"l 
KILL "Dummy" 5 

See Section 6.3 for practical applications using ASCII files. 



6.2.3 Binary files 



Binary file structure is extremely important since this is the usual file 
format directly accessible from the AmigaBASIC interpreter. All other 
filetypes must be converted to binary format before AmigaBASIC can 
execute them. 

Binary programs have a header byte containing $F5. 

The first program line begins at the second byte of the program. This 
would be a good time to examine the structure of an AmigaBASIC line. 
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Line header 



Line offset 



Line 
numbers 



The first byte of a line is the line header. This byte can have one of two 
values: or 128 ($80 hexadecimal). If the line begins with 0, the line 
is handled as if it has no line number. If the line begins with 128, then 
it has a line number. Labels do not apply to this header (more on this 
later). 

The second byte of a line is the offset to the next line. It would be 
pretty complicated to try figuring out pointers to the next line every 
time an AmigaB ASIC program loads and runs at different memory loca- 
tions. Instead, AmigaBASIC counts the total length of the current line. 
The interpreter then figures out the address at which the line begins, and 
takes the number of occupied bytes from it If the interpreter must jump 
a number of lines forward (e.g., during a jump command), it just adds 
the line length of the current line to the starting address. 

Line length is represented in only one byte. This is why a program line 
can be no longer than 2SS bytes. 

Indenting program lines can make your program code more easily 
readable for debugging or when trying to read a program for its flow of 
execution. A program might look something like this: 

multiple . FOR . NEXT . loops : 

FOR FirstLoop-1 TO 100 2 

FOR secondLoop-1 TO 10 4 

FOR thirdLoop-1 TO 50 6 

IfRINT FNstepon (x,y,z) 8 

NEXT thirdLoop, secondLoop, FirstLoop 2 

The numbers at the right of the lines above don't belong to the program 
itself. These are the numbers taken up by the third byte of the matching 
program line. Take a look at these with the file monitor. Only list 
and editing commands make use of this byte. It gives the spacing of the 
first command from the left margin. This answers the question as to 
whether the program length or execution speed are affected by 
indentation. You see, the single change is in the value of the third byte. 

Now look at the difference between the structures of a line containing a 
line number and a line without a line number. Up to now, you've seen 
how a line without line numbers is handled. Here's a review: 



Byte 


Value 


Definition 


1 
2 
3 


00 

XX 

XX 


Line without line number follows 
Line length in bytes (with head and end) 
Spacing from left margin to first command (for 
LISTing programs only) 



Lines with line numbers have two additional bytes, making the line 
header a total of five bytes long. Bytes four and five give the line num- 
ber in high byte/low byte format For example, if the line number is 
10000, the fourth and fifth byte return $27 and $10 respectively (39 and 
16 decimal: 39*256+16=line number). The structure looks like this: 
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Blank lines 



The last line 



Byte number 


Value 


Definition 


1 
2 
3 

4 
5 


128 

XX 

XX 

XX 
XX 


Line with line number follows 

Line length in bytes (with head and end) 

Spacing from left margin to first command (for 

Lis Ting programs only) 

Line number (high byte) 

Line number (low byte) 



Both line structures are similar. The bytes following are the tokens 
(commands coded into two-byte numbers). 

BASIC lines end with the value (an extra byte). To summarize, a pro- 
gram line consists of 

1) a program header with or without line numbers 

2) tokens (commands, labels,.variables and values) 

3) end byte of 

Now that you know about line storage, you may already know how 
blank spaces are stored. The blanks discussed here are those spaces 
between one line and the next 

Here's the problem: The first byte must contain a zero, so no line num- 
ber follows. The third byte (indentation) is also zero most of the time). 
The fourth byte starts the token list. If this line is blank, the end-of-line 
code (another zero) follows. The line ends and the total line length (four 
bytes) goes to the second byte of the line. 

A blank line looks something like this: 

$00 -$04- $xx- $00 

It's obvious here that every blank line takes up four bytes of memory 
and slows down the computer's execution time, since the interpreter 
checks these blank lines for commands. You should remove blank lines 
from your programs, especially programs that are time-critical. You 
know the old saying-little things add up. See Section 6.3 for a program 
that removes blank lines. 

The last line of a program begins with a null byte. There is no line 
number offset. The next byte is the line length byte, which is also set 
to null, then the end-of-line code (again, a zero). 

Other bytes could follow, say when a program has been edited. These 
bytes can have some strange values. 
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Variable names can be up to 40 characters long in AmigaBASIC. The 
Variable problem comes up every time access occurs on a variable stored under 

tables its full name. In order to use long-named variables without slowing the 

computer down, the programmer must do the following in this BASIC 

dialect: 

When a variable occurs, the interpreter reads a special token. This token 
always has the value $01. Following this token is a number in high 
byte/low byte format The interpreter simply numbers each variable and 
continues program execution based upon variable numbers. These vari- 
ables must be stored under their full names so that LIST lists these 
variables under their full names. The end of the program contains a vari- 
able table to accomplish this. An entry in this table appears in the 
following format: 



1st byte 



successive bytes 



Length of the variable name in bytes 



Variable names in ASCII code. 



For example, if you use the variables a%, String$ and Address* 
in your program, the variable table would look something like this: 



Hexadecimal 


asch 


01 
06 
07 


61 .a 
5A74 72 69 6E67 .String 
41 64 64 72 65 73 73 .Address 



The last byte of your program would then be $65. It doesn't matter 
what type the variable is to the table — these follow the variable number 
set by the token $01. If you look at the above example, the a% variable 
lies in the program as follows: 



Byte number 


Value 


Definition 


1 

2 
3 
4 


1 



37 


Variable number follows 
High byte of variable number 
Low byte of variable number 

ASCII code of % character 



The above table shows you that the first variable is assigned the num- 
ber zero. 

Unfortunately, the variables in AmigaBASIC aren't as simple as all 
that. The order of the variables in die variable table is the order in 
which you first typed them in. To see this bug in action, do the fol- 
lowing: 

Load AmigaBASIC. 

Enter the following: 

The . big . error%=0 
Blahblahblah%=The . error% 
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Label 
handling 



Hello%=0 

• Change Blahblahblah% to read: 
Blahblahblah%°The .big . error% 

• Save the program in binary form, and look at it with the file 
monitor. 

The program itself no longer contains the error % variable. However, 
the variable table still has this variable. If you write a long program and 
mistype some variable names, or change a few names, you're still stuck 
with the original errors/variable names in the variable table, whether 
you use them or not. Your program could end up several kilobytes 
longer than you need, and execution time suffers as well. 

See Section 6.3.6 for a solution to mis problem. 

Another bug in AmigaBASIC is the fact that all SUB programs, their 
calls and all operating system routines called by library and/or 
DECLARE FUNCTION are set up as variables — in the table and the pro- 
gram text. AmigaBASIC can only recognize these names in complete 
syntax checking as functions or SUB extensions. This makes no 
difference to the BASIC interpreter, which goes through a complete 
check of the program before starting it This means that some delay can 
occur between a program loading and eventually starting. 

Labels are similar to variables. The developers of AmigaBASIC had 
some problems dealing with long label names. The solution is as 
follows: Labels are treated as special variables — different from other 
variables in that they are used for program branching. 

This means that labels are sorted out in the variable table like a normal 
variable. Now the BASIC interpreter must be able to recognize a label, 
since no memory is set aside for labels. A special token ($02) marks 
labels in program code. When the interpreter encounters a $02, the 
number immediately following is the high byte/low byte number of a 
label. For example: 



Byte number 


Value 


Definition 


1 
2 
3 


2 

XX 
XX 


Label number follows 
High byte of label number 
Low byte of label number 



Label 
branching 



If the interpreter finds $02 $00 $09 in the program, it knows that there 
is a label here whose name is at the tenth place in the variable table 
(this table begins its numbering at 0). 

You can jump to any label you want, especially useless ones like 
RE Marks. This section talks about GOTO and labels, but the same 
applies to GOSUB. 
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Example: 



GOTO division 



Line number 
branching 



Values in 
Amiga- 
BASIC 



Let's assume that division stands at the third place in the variable 
table. The interpreter finds the following in the program: 



Byte number 



Value 



151 

32 

3 





2 



Definition 



Token for GOTO (see Appendices) 

Space 

Token=label mat should be branched to 

Always 

High byte of number in variable table 

Low byte of number 



You've just learned a new token— $03. The interpreter looks for a $02- 
$00-$02 and continues program execution at that point 

Line number branches are very different from label branches. The reason 
is that line numbers aren't stored in the variable table. A new token is 
required: 



Example: 



GOTO 10000 



Byte number 


Value 


Definition 


1 


151 


Token for goto (see Appendices) 


2 


32 


Space 


3 


14 


Token=branch to following line number 


4 





Always 


5 


39 


High byte of line number (39*256) 


6 


16 


Low byte of line number (+16=10000) 



The $0E token means that in all lines containing header bytes of $80, 
bytes 4 and 5 must be compared with bytes 5 and 6 to find the branch 
line. 

AmigaBASIC has another big difference from other versions of BASIC: 
AmigaBASIC uses its own methods of handling values in its program 
codes. For example, take a simple variable assignment like the one 
listed below: 

Amiga°*l 

The item of interest here is the way the "1" is stored in the program. 
Unlike the methods used in other BASIC dialects, in which numbers are 
converted to their ASCII equivalents, which takes time during program 
execution, AmigaBASIC stores numbers and values in the necessary 
format. For every format (e.g., floating-point or octal), a new token 
must exist. Let's go through this process step by step. 

The process used to differentiate the format selection is a stupid one; it's 
not dependent upon the needs of the variable. Look at the above ex- 
ample. It goes without saying that the number 1 would be handled as an 
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integer. The next important fact is that the number is a single-digit 
number. When it comes down to the leading character of the number 
(positive or negative), the following occurs: 

Positive integers from to 9 go into the program without tokens. The 
ASCII code is unused. Direct storage in memory is impossible, since 
me numbers can be interpreted as other values (e.g., "0" means end-of- 
line and "1" means "Variable number"). The values are coded as 
follows: 



Hex 



Dec 



Value (decimal) 



$11 
$12 
$13 

$19 

$1A 



17 
18 
19 

25 
26 





1 
2 

8* 
9 



When the interpreter finds a byte between 17 and 26, it replaces the 
value 17 with the proper value. 

Now take a look at positive integer values between 10 and 255. One 
byte is enough for storing these numbers. Again, a token is required so 
mat the interpreter cannot mistake the number for a command token or 
other token. The format is: 



Byte number Value Definition 



15 
xx 



A positive integer from 10 to 255 follows 
Value between 10 and 255 



Integer values can also be larger than 255, and positive or negative. 
These numbers use this format: 



Byte number 



Value 



28 
xx 

XX 



Definition 



A 2-byte integer with leading character follows 

High byte (bit 7=leading character bit) 

Low byte 



Integers larger than 32767 are represented in long-integer format: 



Byte number 


Value 


Definition 


1 
2-5 


30 

XX 


A 4-byte integer with leading character follows 
4-byte integer (bit 7 in byte 2=leading char- 
acter bit) 



If the value should be handled as a floating-point number, use the fol- 
lowing format: 



Byte number 


Value 


Definition 


1 
2-5 


29 

XX 


A 4-byte floating-point number follows 
4-byte floatins-point (7-place accuracy) 
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Double-length floating-point numbers: 



Byte number 


Value 


Definition 


1 
2-9 


31 

XX 


An 8-byte floating-point number follows 
8-byte floating-point (16-place accuracy) 



The Amiga has ways to recognize and fix incorrect numerical notation. 
No tation Enter the following into a program from AmigaBASIC: 

a=&hff 

When you exit the line, the Amiga corrects the error. 

a=&HFF 

Tokens help the Amiga recognize the number system used: 



Byte number 


Value 


Definition 


1 
2 
3 


12 

XX 

XX 


Hexadecimal number follows 
High byte 
Low byte 



Then there are the larger octal numbers like &O 123456. These must be 
converted into 2-byte format 



Byte number 



1 

2 + 3 



Value 



11 
xx 



Definition 



Octal number follows 

Octal number (accuracy to 6 places) 



Assigning values to strings has one major change from the other vari- 
ables: Strings are stored in ASCII. To save memory, no new memory 
is set aside for a direct value assignment The pointer is set in the pro- 
gram to the starting address of the string. 

For example, type this in AmigaBASIC and run it 



a$= « » 

b$="These lines I am a 'changing." 
FOR i-1 TO IEN(b$) 

POKE SADD (a$) +1-1.ASC (MID$ (b$,i,l) ) 
NEXT 
LIST 

SADD may be an unfamiliar command to you. It returns the starting 
address of the string contained in a variable (in this case a$). 

After you run this program, compare the listing above with the pro- 
gram you entered and ran. It looks like this: 

a$="These lines I am a' changing." 
b$="These lines I am a' changing." 
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FOR i=l TO LEN(bS) 

POKE SADD(a$)+i-l,ASC(MID$(b$,i,l)) 
NEXT 
LIST 

You can see from this little example lots of potential for self-modifying 
programs. For example, you could put the name of a window in a$. 
The user could enter a new name while the program runs. The program 
then pokes the name into the system and saves the altered program to 
diskette. 

r nmmn *.A Command tokens (characters having ASCII codes higher than 127) have 
c ommana then- own peculiarities that you should know about. These tokens are 
tokens stored by AmigaBASIC as single- or double-character codes. They repre- 

sent direct commands, but require less memory than if the Amiga stored 
commands by their full names. 

$8E (ELSE) never happens in program code by itself. The interpreter 
can only determine the end of a command when it either finds code $ 
(end-of-line) or code $3A (colon). If the interpreter finds IF and then 
without an ELSE, then IF/THEN are handled by the interpreter as one 
command. If ELSE follows, you can see that the BASIC interpreter 
adds a colon before the $8E (you can't see this colon when you call 
list). If you put your own colons in preceding the ELSEs in your 
programs, the file monitor shows two colons. The colon originally 
added by the interpreter itself is invisible to LIST. 

REMarks cause a similar problem— the interpreter adds a colon. This is 
strange, since it happens even when REM is the only command in the 
line. A line can look like this: 

Its structure can look like this: 



00 0E 00 



Header 



3A 



AF E8 



20 2A 20 31 2E 20 2A 



00 



End 



Another strange thing happens when you create a program and use the 
token $BE for the WHILE command. Under certain circumstances, the 
Amiga stops the program and returns ERROR 22 (Missing operand) If 
you write a program in AmigaBASIC, once in a while the interpreter 
places an $EC after the visible single-byte token $BE. 
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There is one token that you can't list and you almost never use. You 
Important: know that you can only call SUB routines directly through THEN or 
ELSE with die CALL command. You can use BASIC commands as 
well as SUB programs. The SUB program has one purpose alone: It 
allows the programming of command extensions in BASIC. Those who 
know this never use the CALL command, aside from calling operating 
system routines. Instead they use this token. Unlike CALL, this token 
goes after the pointers to the variable table. The token is the double 
token $F8-$D1. 

In closing, a few words about the DATA command. DATA statements 
are placed in ASCII text, like the date following a REMark. This data 
can be read into variables, and can be of any type: 

DATA Shffe2,123,&06666 

Why were the SUB programs implemented in AmigaBASIC? The first 
SUB reason is that they allow modular programming. Also, SUB programs 

programs allow the retention of variable names, even when programs are com- 

bined through CHAIN and MERGE. Any of these variables can be shared 
with other routines by stating the names with STATIC. 

It's a good move to edit each and every SUB program separately, store 
them as ASCII files, and combine the SUBs with the BASIC program 
currendy in memory using MERGE in direct mode or program mode (the 
syntax check takes up a lot of time). The call convention (e.g., which 
operating system routines must be declared as functions, etc.) should be 
declared and archived with a file manager. The second point of interest 
was mat unlike earlier computers with incomplete command sets, SUB 
programs allow extension of the command set 

PRINTAT 10,20, "Sample text" 

SOB PRINTAT (x,y,Text$) STATIC 

LOCATE y,x 

PRINT Text$ 
END SOB 

The third point is the pressure on the programmer to learn Pascal or 
another language. Why learn more complex languages, when BASIC 
can do it just as well and just as fast? Unlike Pascal, SUB programs 
cannot call themselves. However, a command can be called multiple 
times, with the help of a label at the beginning of a routine made up of 
SUB programs. 

Programs handle SUB routines like variables. Only in this way does the 
Amiga recognize these routines. 
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Important 
details 



Other tokens 



What would the make-believe manipulation program do when it en- 
counters the code sequence $20-$F8-$8F-$20? Turn to the token 
list in the Appendix. The code stands for the $F8 double token END, 
placed between two spaces. The program hasn't ended, though. What 
about this $F8-$be? That's the double code for SUB. You see, a token 
by itself can cause trouble. First the connection in which the token is 
compared to other tokens sets the type of execution. This also goes for 
PRINT# and ?#— the token numbers are the same. 

No time has been spent discussing tokens below 128. These tokens are 
used, though. There are occasions when you try saving an edited pro- 
gram in direct mode when the Amiga displays an error requester instead. 
Apparently the Amiga gets stuck in the error checking routine, and 
keeps registering an error. Clicking on the OK gadget eventually gets 
you past the error, but you may have to click it a few times over. 

A simple program check can change commands around. An occasional 
gap in the token list can control the program. For example, $ 8, which 
acts as the branch offset of the if /then construction that may not be 
in the same place in another program In order to make life with mani- 
pulation programs as simple as possible, try to follow these ground 
rules: 



1) 



2) 



Manipulation programs or programs for reading data from other 
programs which require binary file format should: 

allow storage of the modified file as an ASCII file. 

allow you to save the file back in binary file format after 



ASCII files require no special treatment, as long as the program 
control codes aren't saved as well. 
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6,3 Utility programs 



Hie following section presents programs that let you change Amiga- 
B ASIC program code. 



6.3.1 DATA generator 



This program demonstrates how you can create a program from an 
AmigaBASIC program saved in ASCII format 

A good program should allow you to type it in direct from a magazine. 
But what if this program has sprites, bobs, machine language or some- 
thing similar? Then a DATA generator is necessary. This program 
makes DATA statements out of any program. The ASCII file created can 
be appended to a program using MERGE. 

To keep the DATA list short, the statements are displayed in hexa- 
decimal notation. You may recognize the reader routine from the 
AmigaBASIC manual program for converting hex to decimal numbers. 
The reverse routine can be found anywhere, although it's not standard to 
AmigaBASIC. Just type: 

stuff: DATA ff,ec,0,l,f 

RESTORE stuff :FOR i-1 TO 5:READ a$:x(i)=VAL( ,, SH"+a$) :NEXT 

Now for the listing: 

GOTO Starts 

. ######################################! 
' #DATA-GENERATOR AMIGA #! 

• # n 

• # (W) 1987 by Stefan Maelger #! 

. #####«*########*#####*####**«##«######! 

'! 

■ "dos.bmap" and "exec.bmap" must be on! 

' Disk or in LIBS: !! 

. n 

• Declare System Routines and Functions! 

•1 
Start: ! 

DECLARE FUNCTION xOpenS LIBRARY! 

DECLARE FUNCTION xRead% LIBRARY! 

DECLARE FUNCTION AllocMemS LIBRARY! 

DECLARE FUNCTION Examine* LIBRARY! 

DECLARE FUNCTION Locks LIBRARY! 
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' Open Libraries! 
' ! 

LIBRARY "exec. library" 5 

LIBRARY "dos. library" 5 

' Input! 

'! 

sourcefile:! 

CLS! 

LINE INPOT "Name of Source-File: ";source$! 

PRINT! 

PRINT "Insert Diskette and Press <RETURN>"! 

WHILE A$OCHR$<13)! 

A$=>INKEY$! 

WEND! 

LOCATE 3,1: PRINT "Checking File... «qt 

CHDIR "dfO:"! 

CheckFile source$,BytesS! 

I 

! 

IF Bytes&-0 THEN! 

LOCATE 3,1:PRINT "File not found. . .":BEEP! 

A-TIMER+3 :WHILE A>TIMER:WEND! 

GOTO sourcefile! 

ELSEIF Bytes&°-1 THEM 

LOCATE 3,1: PRINT "I can't find the Directory. . ."! 

BEEP :A=TIMER+3:WHILE A>TIMER:WEND! 

GOTO sourcefile! 

END IF! 

LOCATE 3,1:PRINT "File Found. Length="3ytes&;" Byte"! 
. 5 

' Setup Buffer! 
'! 
PublicRAM&=65537&! 

Buf ferS=AllocMemS (Bytes &,PublicRAM&) ! 
IF Buf ferS=0 THEN! 

LOCATE 5,1: PRINT "Not enough memory, "! 
LOCATE 7,15 

PRINT "Program can re-started with RON. "! 
BEEP :END! 
END IF! 
. , 

' Load File in Buffer! 
'! 
source$»source$+CHR$ (0) ! 
Opened&=xOpen& (SADD (source$) ,1005) ! 
IF OpenedS=0 THEN! 

LOCATE 5,1: PRINT "I can not open the File!"! 
BEEP :A-TIMER+3 :WHILE A>TIMER: WENDS 
GOTO sourcef ile! 
END IF! 

sofar%=xRead% (OpenedS,Buffer&,Bytes&) 1 
CALL xClose (OpenedS) ! 
. , 

' Input Target-File! 
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targetfile: 5 

LOCATE 9,1:PRINT "Name of BASIC-ASCII-File M 5 
5 
5 

FOR i=ll TO 17 STEP 25 

LOCATE i,l :PRINT SPACE$(80)5 
NEXT! 

LOCATE 11,1: LINE INPUT "to be produced: ",target$5 
LOCATE 13,1:PRINT "Insert Target-Disk and Press 
<RETURN>"5 

A$="" :WHILE A$OCHR$(13) :A$=INKEY$:WEND! 

CHDIR "df0:"5 

LOCATE 15,1: PRINT "Checking Disk..."! 

CheckFile target$,exist&5 

IF exists— 1 THENf 

LOCATE 15,1:PRINT "This is the Name of a Directory! "5 
PRRP :A=TIMER+3:WHILE A>TIMER:WEND! 
GOTO targetf ilel 
ELSEIF existSOO THEN5 

LOCATE 15,1: PRINT "A File with that name already" 5 
LOCATE 17,1: PRINT "exists! Replace File? (Y/N)"5 
pause: ! 

A$=INKEY$ :IF A$0»" THEN A$=UCASE$ (A$) ! 
IF A$="Y" GOTO continue! 
IF A$0"N" GOTO pause! 
GOTO targetfile! 
END IF! 
continue:! 
. ! 

■ Produce DATA-ASCII-File! 

•I 
LOCATE 19,1:PRINT "Producing ASCII-File."! 
LOCATE 21,1:PRINT "Please be Patient..."! 
OPEN target^ FOR OUTPUT AS 15 

NumberS=05 

PRINT* 1,"REST0RE datas";CHR$ (10) ;5 

PRINT#l,"datastring$-";CHR$ (34) ;CHR$ (34) ;CHR$ (10) ;! 

PRINT* 1,"F0R i-1 TO ";STR$ (BytesS) ;CHR$ (10) ;5 

PRINT#1,"READ a$";CHR$ (10) ;5 

PRINT#l,"a$=";CHR$ (34) ;"SH";CHR$ (34) ;"+a$";CHR$ (10) ;5 

PRINT#l,"datastring$=datastring$+CHR$ (VAL(a$) ) ";5 
PRINT#1,CHR$(10);5 

PRINT#1,"NEXT";CHR$ (10) ; 5 

PRINT* l,"datas : ";CHR$ (10) ; 5 



Loop:! 

PRINT#1,"DATA ";5 
BCount-O! 
Value: ! 

PRINT#1,HEX$ (PEEK(Buffer&+Number&) ) ;5 
BCount~BCount+l :Number&»Number&+l! 
IF NumberS<BytesS THEN! 
IF BCount<20 THEN 5 
PRINT* i,",";5 
GOTO Value5 
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ELSE! 

PRINT#1,CHR$(10);5 
GOTO LoopS 
END IF! 
END IF! 

PRINT#1,CHR$ (10) ;CHR$ (10) ;! 
CLOSE If 



• Alter .info-filefl 
'! 

SAVE "DATA-GENINFO"! 

tmp$>=target$+" . inf o"! 

KILL titp$5 

NAME "DATA-GENINFO.info" AS target$+ , \info"! 

KILL "DATA-GENINFO"! 

CLS! 

PRINT "finished. "! 

CALL FreeMem(BufferS,BytesS)! 

ENDf 
. , 

' SUBROUTINE! 

'! 

SDB CheckFile(Filename$, Lengths) STATIC! 

ChipRAMS=65538S?I 

InfoBytesS=252fl 

Info£»=AllocMemS (InfoBytesS, ChipRAMS) ! 

IF InfoS=0 THEN ERROR 75 

File$=Filename$+CHR$ (0) ! 

! 

DosLockS=LockS (SADD (File$) , -2) ! 
IF DosLockS~0 THEN! 

LengthS=0fl 
ELSE! 

Dummys^ExamineS (DosLockS, InfoS) ! 
LengthS=PEEKL (InfoS+4) ! 
IF LengthS>0 THEN f 

LengthS=-lfl 
ELSE! 

LengthS«=PEEKL (Inf oS+124) S 
END IFfl 
END IF! 
CALL Unlock (DosLockS)! 

CALL FreeMem (Infos, InfoBytesS)! 

END SUB! 

Variables a string, help variable 

AllocMem EXEC routine; reserves memory 

Buffer address of reserved memory 

Bytes length of file being edited 

CheckFile SUB routine; tests for file availability: if yes, then it 

checks f ° r directory; if not, it checks for length 
ChipRAM option for AllocMem; 2 A 16 (65536>clear ranee, 

2 A l(2)=chip RAM range 
DosLock file handle for Checkf ile routine 
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Dummy 


unused variable 


Examine 


DOS routine; looks for file 


File 


filename with concluding for DOS 


Filename 


name of file being edited 


FreeMem 


EXEC routine; frees memory range 


Info 


address of file info structure 


InfoBytes 


length of file info structure 


Length 


file length 


Lock 


DOS routine; blocks access from other programs and 




provides handle 


Opened 


address of file handle for source file 


PublicRAM 


option for AllocMem; 2 A 16 (65536)=clear range, 




2 A l(2)=public range 


UnLock 


DOS routine; releases Lock 


Numbers 


counter for data values written 


sofarS 


number of bytes read so far 


i 


loop variable 


source 


source file 


target 


target file in ASCII format for DATA 


exists 


flag:does file exist? 


Tmp 


help variable - temporary file 


xClose 


DOS routine; closes file 


xOpen 


DOS routine; opens file 


xRead 


DOS routine; reads file 


BCount 


byte counter for a line of DATA 



6.3.2 



Cross-reference list 



This program demonstrates a method of reading values from Amiga- 
BASIC programs stored in binary format. Before doing this, the 
program you wish to read must have its onboard program control codes 
removed, as well as any program "garbage" that can occur between the 
program body and the variable table. Do the following to clean up the 
program code: 

Load the file you want to check 



SAVE "Filename'' ,A 
Quit AmigaB ASIC 
Reload AmigaB ASIC 

LOAD "Filename" 
SAVE "Filename",B 
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Once you do this, you can now send a cross-reference list of this pro- 
gram to a printer using the program below. It displays labels as well as 
line numbers in the output. Places where branches are set (e.g., goto 
place) are marked by "<- -". If a branch goes to a section of a pro- 
gram not set by a branch marker (e.g., the beginning of a program), a 
pseudo label appears in parentheses (e.g., "(Program start)"). A "- ->" 
marks the destination of the branch. Bear in mind that operating system 
calls and SUB routines are viewed by the AmigaBASIC interpreter as 
variables. Aside from that, this program is a great method of document- 
ing your programs. 

' ######################################5 
' #CrossReference Amiga #! 

• # n 

• # (W) 1987 by Stefan Maelger #! 

' ######################################U 

'! 

' This program creates a Cross-Referenced 

' of a program on your Printer.! 

' It allows every BINARY format 91 

' AmigaBASIC-Program to be documented.! 



* How the AmigaBASIC programmer handled! 

' SUB-Routines and System calls is still! 

* not well known.! 

. „ 

' ! 

' Reserve Memory, load PrinterDriver, ! 

' -Open Library and Variables ! 

CLEAR, 45000&! 

LPRINT! 

DECLARE FUNCTION xOpenS LIBRARY! 

DECLARE FUNCTION xRead% LIBRARY! 

DECLARE FUNCTION Seek% LIBRARY! 

LIBRARY "dos. library"! 

DIM Cross$ (5000) , names$ (1000) ! 
! 

LOCATE 2,2! 

PRINT CHR$(187);" Cross Reference Amiga ";CHR$(171)! 

LOCATE 5,2! 

PRINT "Name of the binary AmigaBASIC-Program:"! 

LOCATE 7,2! 

LINE INPUT Filename$! 

CHDIR "dfO:"! 
! 

BASICcheck Filename$,Result%! 
! 

LOCATE 10,2! 

IF Result%=-1 THEN! 
PRINT "I can not find any Info-File."! 

ELSEIF Result%=0 THEN! 
PRINT "Read-Error!"! 

ELSEIF Result%=l THEN! 
PRINT "This is Not an AmigaBASIC-Program."! 

END IF! 
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IF Result%02 THEN! 

BEEP! 

WHILE INKEY$=""! 

WEND! 

RON! 
END IF! 

PRINT CHR$ (34) ;Filename$; " . inf o";CHR$ (34) ! 
PRINT ! 

PRINT " made with this Program as AmigaBASIC-File."! 
! 
OpenFile Filename$, handles! 
! 
LOCATE 14,21 
IF handleS=0 THEN! 

PRINT "AAAaargh! I can't find ";CHR$(34) ;! 

PRINT Filename$;CHR$ (34) ; " ! ! ! "! 

BEEP! 

WHILE INKEY$="":WEND:RUN! 
ELSE! 

PRINT "File opened."! 
END IF! 
LOCATE 16,2! 
! 
HeaderCheck handles, Header$1I 

IF ASC(Header$)OSHF5 THEN! 
PRINT "Sorry, I can only Cross-Ref ei ence binary-Files"! 

WF.TTP ! 

WHILE INKEY$="":WEND:RUN! 
ELSE! 

PRINT "File has binary Format"! 

PRINT : PRINT "Please be patient. ";! 

PRINT "I'll report on my status..."! 
END IF! 
pointer%=-l! 
! 

main:! 
! 

GetLine handles, Current$! 
! 
IF LEN(Current$)<4 THEN! 

PRINT ! 

PRINT " Reached the end of Binary-Codes"! 

PRINT :PRINT " getting Variable Table."! 

GOTO Vartab! 
END IF! 
IF ASC(Current$)=128 THEN! 

pointer%=pointer%+l! 

Cross$ (pointer%) «=CHR$ (128) +MID$ (Current$, 4,2)! 

Current$=MID$ (Current$, 6) ! 
ELSE! 

Current$=MID$ (Current$, 4) ! 
END IF! 
! 

GetToken:! 
! 
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Token%-ASC (Current$+CHR$ (0) ) f 
IF Token%=0 GOTO main! 
1 

' -Command Token? fl 

IF Token%>127 THEN5 
IF Token%-175 OR Token%=141 GOTO mainU 
IF Token%=190 OR Token%>247 THEN! 

Current$-MID$ (Current $, 3) f 
ELSE1 

Current$"44ID$ (Current $, 2) I 
END IFfl 
GOTO GetTokenH 
END IFfl 
f 

' String? fl 

IF Token%=34 THEN! 
Byte%=INSTR (2, Current$, CHR$ (34) ) 5 
IF Byte%=0 GOTO main! 
Current$=MID$ (Current $,Byte%+l) fl 
GOTO GetTokenfl 
END IF5 
f 

' 2-Byte-Value Sequence? 1 

IF Token%=l OR Token%=ll OR Token%»12 OR Token%=28 THENfl 
Current$=MID$ (Current $, 4) H 
GOTO GetTokenfl 
END IFH 

' 1-Byte-Value Sequence? f 

IF Token%=15 THEN Current$«MID$(Current$,3) :GOTO 

GetTokenl 

' 4-Byte-Value Sequence? U 

IF Token%=29 OR Token%=30 THEN5 

Current$=MID$ (Current$, 6) f 

GOTO GetTokenH 
END IFH 

' 8-Byte-Value Sequence? 1 

IF Token%=31 THEN Current$-MID$ (Current$,10) :GOTO 
GetTokenfl 
5 

■ Is it a Label? 5 

IF Token%=2 THENfl 
pointer%=pointer%+lfl 
Cross$ (pointer%) -LEFT$ (Current$,3) fl 
Current$=MID$ (Current$, 4) fl 
GOTO GetTokenfl 
END IFf 
1 

' Is it a Branch Statement? fl 

IF Token%=3 OR Token%=14 THFM 
pointer%=pointer%+15 

Cross$ (pointer%) =CHR$ (Token%) +MID$ (Current $, 3, 2) S 
Current$=MID$ (Current$, 5) I 
GOTO GetTokenfl 
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END IF! 

Current$-41IDS (Current$, 2) ! 

GOTO GetToken! 
! 

Vartab:! 
! 

p2%— 15 
! 

notf orever : ! 
! 

GetLength handles, bytes%! 
! 

IF bytes%=0 GOTO GoOn! 

GetName handles, Current$,bytes%5 

11 

p2%=p2%+m 

names$ (p2%) -Current$! 
GOTO notf orever! 
! 

GoOn:! 
! 
IF pointer%=-l THEN! 

PRINT 5 

PRINT "I have no Label or Line Number"! 

PRINT ! 

PRINT "that I can discover!"! 

BEEP! 

WHILE INKEY$=»"":WEND:RUN! 
ELSEIF p2%—l THEN! 

PRINT 5 

PRINT "Hmm - no Variable Table"! 

BEEP! 

WHILE INKEY$="":WEND:RUN! 
ELSE ! 

PRINT : PRINT " Getting Data."! 
END IF! 

! 
LPRINT ">» CrossReference Amiga «<"! 

LPRINT " "I 

LPRINT "Program: ";Filename$! 
LPRINT! 

FOR i-0 TO pointer%! 
ascii%=ASC (Cross$ (i) ) ! 
IF ascii%"2 THEN! 

LPRINT naroes$ (CVI (MID$ <Cross$ (i) , 2) ) ) ; ! 

FOR j=0 TO pointer%! 
IF ASC(Cross$(j))=3 THEN! 
IF CVI (MID$ (Cross$ ( j) , 2) ) -CVI (MID$ (Cross$ <i) , 2) ) 
THEN! 

k=j! 

WHILE k>-l! 
k=k-l! 

IF k>-l THEN! 
IF ASC(Cross$(k))=2 THEN! 
LPRINT " <— ";! 
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LPRINT names$ (CVI (MID$ (Cross$ (k) , 2) ) ) ! 
k— 25 
ELSEIF ASC(Cross$(k))-128 THEN! 
LPRINT " <— ";CVI<MID$(Cross$(k),2))5 
k— 2! 
END IF! 
END IF! 
WEND 5 

IF k— 1 THEN LPRINT " <— (Program-Start) "5 
END IF! 
END IF! 
NEXT j! 
ELSEIF ascii%=3 THENI 

LPRINT " — > ";names$(CVI(MID$(Cross$(i),2)))! 
ELSEIF ascii%=14 THEN! 

LPRINT •• — > ";CVI(MID$(Cross$(i),2))! 
ELSEIF ascii%=128 THEN! 
LPRINT CVI (MID$ (Cross$ (i) , 2) ) 5 
FOR j»0 TO pointer%! 
IF ASC(Cross$(j))=14 THEN! 
IF CVI (MID$ (Cross$ ( j) , 2) ) -CVI (MID$ (Cross$ (i) , 2) ) 
THEN! 

k-jl 

WHILE k>-l! 
k-k-1! 

IF k>-l THEN! 
IF ASC(Cross$(k))-2 THEN! 
LPRINT " <— »;! 

LPRINT names$ (CVI (MID$ (Cross$ (k) , 2) ) ) 5 
k— 21 
ELSEIF ASC(Cross$(k))-128 THEN! 
LPRINT " <— ";CVI(MID$(Cross$(k),2))! 
k=-25 
END IF1 
END IF! 
WEND ! 

IF k— 1 THEN LPRINT » <— (Programm-Start) »! 
END IF! 
END IF! 
NEXT j! 
END IF! 
NEXT i! 

PRINT :PRINT "Finished."! 
BEEPS 

WHILE INKEY$="":WEND:RUN! 
51 

SUB GetName (handles, Current$,bytes%) STATIC! 

Current$~SPACE$ (bytes%) ! 

Length%=xRead% (handles, SADD (Current$) ,bytea%) f 
END SUB! 
! 
SUB GetLength (handles, bytes%) STATIC! 

Current$=CHR$ (0) ! 
readit : ! 

Length%=xRead% (handles , SADD (Current$) , 1 ) ! 

IF Length%=0 THEN! 
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CALL xClose (handles) ! 
bytes%«0! 
EXIT SUB! 
END IF! 

bytes%-ASC (Current$) ! 
IF bytes%=0 THEN readit! 
IF bytes%>60 THEN readit! 
! 
END SUM 

! 
SUB GetLine (handles, Current $) STATIC! 
Current$-STRING$ (3, 0) ! 

Length%==xRead% (handles , SADD (Current$) , 3) ! 
01dPos%=Seek% (handles, -3, 0) 1 
LoL%-ASC(MID$ (Current$,2, 1) ) ! 
IF LoL%=0 THEN! 

EXIT SUB! 
ELSE! 

Current$=STRING$ (LoL%, 0) ! 

Length%=xRead% (handles, SADD (Current$) , LoL%) ! 
END IF! 
END SUB! 

! 
SUB HeaderCheck (handles, Header $) STATIC! 
Hea<ter$= n 3. n 1 

01dPos%=Seek% (handles, 0, -1) 5 
gotit%-xRead% (handles , SADD (Header $) ,1)5 
END SUB! 

! 
SUB OpenFile (Filename$, handles) STATIC! 
f ile$=Filename$+CHR$ (0) ! 
handleS-qtOpenS (SADD (f ile$) , 1005) ! 
END SUB! 

! 
SUB BASICcheck (Filename$, Result %) STATIC! 
f ile$-Filename$+" . inf o"+CHR$ (0) ! 
Default. Tool$=SPACE$ (20) 5 
handleS=xOpenS (SADD (f ile$) , 1005) ! 
IF handleS=0 THEN! 

Result%— 1! 
ELSE! 

01dPos%=Seek% (handles, -20, 1) ! 

gotit%=xRead% (handles , SADD (Default . Tool$) , 20) ! 

IF gotit%<20 THEN! 

Result%=0! 
ELSE! 

IF INSTR(Default.Tool$, ,, AmigaBASIC")>0 THEN! 

Result%=2! 
ELSE! 

Result%=15 
END IF! 
END IF! 

CALL xClose (handles)! 
END IF! 
END SUB! 
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Variables BAsiccheck 


SUB routine; test for Default Tools 


Byte 


pointer to byte in string 


Bytes 


length of file being edited 


Cross 


string array; buffer for branch markers and jumps 


Current 


string; BASIC line read 


Default/Tool 


string; reads Default Tool 


Filename 


string; name of file to be edited 


GetLength 


SUB routine; reads label length 


GetLine 


SUB routine; reads line 


GetName 


SUB routine; reads label name 


Header 


string; file header byte 


HeaderCheck 


: SUB routine; checks for header type 


Length 


file length 


LoL 


line length 


OldPos 


old pointer position in file 


OpenFile 


SUB routine; opens file 


Result 


flag; result of search 


Seek 


DOS routine; moves read/write pointer in file 


Token 


address of file handle for source file 


ascll 


code value in Cross$ 


File 


string; filename ended with for DOS routines 


got it 


bytes read so far 


handle 


file handle address 


i 


loop variable 


J 


loop variable 


k 


loop variable 


names 


string array; branch marker names 


P2 


help variable 


pointer 


help variable 


xClose 


DOS routine; closes file 


xOpen 


DOS routine; opens file 


xRead 


DOS routine; reads file 



6.3.3 



Blank line killer 



Now that you know how to make blank lines, you should know how to 
get rid of them. The following program removes these lines for you. 
Before using this program, any control codes and garbage must be re- 
moved (see the preceding section for instructions on doing this). 
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Note: 



When you type in this program, you could create small errors that can 
ruin the programs being modified. Use copies of the program you want 
to modify only, and test the main program with these copies to make 
sure that it runs properly. This program alters the file and saves it out 
again. The current window closes to save memory. If there are small 
errors in the line killer program, such as an endless loop, you won't be 
able to recover the program. If the program seems as if it's taking a 
while at first, don't panic— the time factor depends on the file being 
modified. 



######################################f 

# Blank Line-Killer Amiga #! 
# n 

# (W) 1987 by Stefan Maelger #! 
######################################1 

I 

"dos.bmap" and "exec.bmap" must be on! 
Disk or in LIBS: 5 



! 
DECLARE FUNCTION AllocMemS LIBRARY! 
DECLARE FUNCTION Locks LIBRARY! 
DECLARE FUNCTION Examines LIBRARY! 
DECLARE FUNCTION xOpenS LIBRARY! 
DECLARE FUNCTION xReadS LIBRARY! 
DECLARE FUNCTION xWriteS LIBRARY! 
LIBRARY "exec. library"! 
LIBRARY "dos. library"! 
WINDOW CLOSE WINDOW (0)! 

WINDOW 1, "Blank Line-Killer", (0, 0) - (250, 50) ,1611 
Allocation. 1:5 
COLOR 3,1:CLS! 

infoS=AllocMemS (252S, 65538S) I 
IF info&^O THEN1I 

ALLOCERR I 

GOTO Allocation. II 
END IF I 
Source: ! 

REQUEST "SOURCE"! 
SELECT box%f 

IF box% THEN^ CALL FreeMem(infoS,252) : SYSTEM! 
CHDIR "dfO:"! 
GetFilename: ! 
LINPUT Filename$f 
GETINFO Filename$, infos, Lengths! 
IF LengthS<l THEN! 

IF Lengths— 1 THEN! 
DIRERRI 

ELSEIF LengthS=0 THEN! 
FILEERR! 

END IF! 

GOTO GetFilename! 
END IF! 
Allocation.2:I 
COLOR 3,1:CLS I 
bufferS=AllocMemS (Lengths, 65537S) I 
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IF bufferS-0 THEN! 

ALLOCERR! 

GOTO Allocation. 21 
END IF! 

LOADFILE Filename$, buffers, Length6l 
IF Filename$="" THENI 

CALL FreeMem (buffers, Lengths )! 

LOADERR! 

GOTO GetFilenamel 
END IF! 
IF PEEK (buffers )OSHF5 THENI 

CALL FreeMem (buffers, Lengths )! 

FORMERR! 

GOTO GetFilenamel 
END IF! 

NEWFILE Filename$, handles! 
IF handleS-0 THENI 

CALL FreeMem (buffers, Lengths)! 

CALL FreeMem(info6, 2526)1 

OPENERR! 

SYSTEM! 
END IF! 
Bytess=l! 

DWRITE handles, buffers, BytesS! 
IF BytesS=0 THEN! 

CALL xClose (handles )1 

CALL FreeMem (buffers, Lengths)! 

CALL FreeMem(infoS,252s)! 

WRITEERR! 

SYSTEM! 
END IF! 

pointerS»bufferS+l! 
GetLength:! 

BytesS«*EEK (pointerS+1) ! 
IF BytesS=4 THEN! 

pointer S ^pointer S +41 

GOTO GetLength! 
ELSEIF BytesS>4 THEN! 

DWRITE handles, pointers, BytesS! 

IF BytesS=0 THEN! 

CALL xClose (handles) 1 

CALL FreeMem (buffers ^Lengths)! 

CALL FreeMem(infoS,252S)l 

WRITEERR! 

SYSTEM! 

END IF! 

pointerS=pointerS+BytesS! 

GOTO GetLength! 
ELSE! 

BytesS=LengthS- (pointers-buff erS+1) ' 

DWRITE handles, pointers, BytesS! 

IF BytesS=0 THEN! 

CALL xClose (handles )1 

CALL FreeMem (buffers , Lengths ) 1 

CALL FreeMem (infos, 2526)1 

WRITEERR! 
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SYSTEM! 
END IF! 

END IF! 

CALL xClose (handles)! 

CALL FreeMem (buffers, Lengths) ! 

CALL FreeMem(infoS,252S)! 

LIBRARY CLOSE! 

COLOR 3, 1:CLS: LOCATE 2,2:PRINT "Ready."! 

WHILE INKEY$-"":WEND! 

SYSTEM! 
SUB WRITEERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Write-error."! 

ShowCont! 
END SUB ! 
SOB DWRITE (handles, adrS, Lengths) STATIC! 

writtenS-xWriteS (handles , adrS , Lengths ) ! 

IF wrlttenSOLengthS THEN Lengths-O! 
END SUB! 
SUB OPENERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Can't open 
File."! 

ShowCont! 
END SUB ! 
SUB NEWFILE(Fllename$, handles) STATIC! 

File$=Filename$4CHR$ (0) ! 

handleS-ocOpenS (SADD (File$) , 1005) ! 
END SUB ! 
SUB FORMERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Not a binary 
File."! 

ShowCont! 
END SUB ! 
SUB LOADERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Load-error."! 

ShowCont! 
END SUB! 
SUB LOADFILE (Filename$, buffers, Lengths) STATIC! 

File$=Filename$+CHR$ (0) 
:handleS=xQpenS (SADD (File$) , 1005) ! 

IF handleS=0 THEN! 
Filenames^""! 

ELSE ! 

inBuf ferS=xReadS (handles, buffers, Lengths) ! 

CALL xClose (handles) ! 

IF inBuf ferSOLengthS THEN Filename$=""! 

END IF! 
END SUB! 
SUB FILEERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: File not 
found."! 

ShowCont! 
END SUB ! 
SUB DIRERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2! 

PRINT "ERROR: File is a Directory."! 
ShowCont! 
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END SUBS 

SOB GETINFO (Filename$, infos, Lengths) STATICS 

File$-Filename$+CHR$ (0) :DosLockS-LockS (SADD (File$) , - 
2)S 

IF DosLockS-0 THEN S 
LengthS-OS 

ELSEf 

DummyS-ExamineS (DosLockS, infos) S 
IF PEEKL(infoS+4)>0 THENS 

Lengths— IS 
ELSES 

LengthSHPEEKL(infoS+124) S 
END IFS 

END IFS 

CALL UnLock (DosLockS) S 
END SUBS 
SUB LINPUT (Filename$ ) STATICS 

COLOR 3, 1:CLS: WINDOW 2, "Filename:", (0,0) -(250, 10) , OS 

WINDOW OUTPUT ltLOCATE 5,2S 

PRINT "Name of a binary saved File";S 

LINE INPUT Filename$: WINDOW CLOSE 2S 
END SUBS 

SUB SELECT (box%) STATICS 
Check: S 

WHILE MOUSE (0)-0:WEND:x-MOUSE(l) :y-M0USE(2)S 

IF y>27 AND y<43 THENS 

IF x>9 AND x<38 THEN box%=0:EXIT SUBS 

IF x>177 AND x<238 THEN box%«-l :EXIT SUBS 

END IFS 

GOTO CheckS 
END SUBS 

SUB ALLOCERR STATICS 

COLOR 1, 3 :CLS: LOCATE 2, 2: PRINT "ERROR: Allocation 
denied. "S 

ShowContS 
END SUBS 
SUB ShowCont STATICS 

LOCATE 4, 2: PRINT "Press SPACE to continue, "S 

LOCATE 5,7:PRINT "ESCAPE to exit.";S 

WHILE a$OCHR$(32) AND a$OCHR$(27)S 
a$-INKEY$S 

WENDS 

IF a$-=CHR$ (27) THEN SYSTEMS 
END SUBS 
SUB REQUEST (disk$) STATICS 

COLOR 3,1:CLSS 

LOCATE 2,2:PRINT "INSERT ";disk$;" DISK INTO DRTVE"S 

LOCATE 3,14:PRINT "DF0:":LOCATE 5,3:PRINT "OK";S 

LOCATE 5,24:PRINT "CANCEL"; :LINE(10,28)-(37,42) ,3,bS 

LINE (178, 28) - (237, 42) , 3,bS 
END SUBS 

Variables ALLOCERR SUB routine; memory reservation error 

AllocMem exec routine; reserves memory 

Byte s length of file being edited 

D ierr SUB routine; error— no file 
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DWRITE 


SUB routine; write to file 


DosLock 


file handle of Lock 


Dummy 


unused variable 


Examine 


DOS routine; looks for file 


FILEERR 


SUB routine; error 


FORMERS. 


SUB routine; error 


File 


filename with concluding for DOS 


Filename 


name of file being edited 


FreeMem 


exec routine; frees memory range 


GET INFO 


SUB routine; file check 


LINPUT 


SUB routine; input 


LOADERR 


SUB routine; error 


LOADFILE 


SUB routine; load program 


Length 


file length 


Lock 


DOS routine; blocks access from other programs and 




provides handle 


NEWFILE 


SUB routine; create new file 


OPENERR 


SUB routine; error 


REQUEST 


SUB routine; draw primitive requester 


SELECT 


SUB routine; select through mouse click 


ShowCont 


SUB routine; show options 


UnLock 


DOS routine; releases Lock 


WRITEERR 


SUB routine; error 


a 


help variable 


adr 


address 


b 


help variable 


box 


help variable 


buffer 


address of reserved memory 


disk 


diskette 


handle 


address of file handle 


inBuffer 


bytes read 


info 


address of file info structure 


pointer 


help variable 


written 


bytes written 


X 


help variable 


xClose 


DOS routine; closes file 


xOpen 


DOS routine; opens file 


xRead 


DOS routine; reads file 


xWrite 


DOS routine; writes to file 


y 


help variable 


REM killer 



This program has a lot of the same code as the line killer in Section 
6.3.3. Load that program, change the necessary text and save the new 
program under a different name from the name you assigned in Section 
6.3.3. 
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' ######################################5 

• # Kill-Remark Amiga #? 

• # #5 

' # (W) 1987 by Stefan Maelger #? 

• ######################################1 
•? 

' "dos.bmap" and "exec.bmap" must be on? 

• Disk or in LIB:? 

. f 

*? 
DECLARE FUNCTION AllocMemS LIBRARY? 
DECLARE FUNCTION Locks LIBRARY? 
DECLARE FUNCTION Examines LIBRARY? 
DECLARE FUNCTION xOpenS LIBRARY! 
DECLARE FUNCTION xReadS LIBRARY? 
LIBRARY "exec. library"? 
LIBRARY "dos. library"? 
WINDOW CLOSE WINDOW (0)? 

WINDOW 1, "Kill-Remark", (0, 0) - (250, 50) ,16? 
Allocation.l:? 
COLOR 3,1:CLS? 

infoS=AllocMem6 (2526, 65538s) ? 
IF info6=0 THEN? 

ALLOCERR ? 

GOTO Allocation.l? 
END IF ? 
Source: ? 

REQUEST "SOURCE"? 
SELECT box%? 

IF box% THEN CALL FreeMem(info6, 252) : SYSTEM? 
CHDIR "dfO:"? 
GetFilename: ? 
LINPUT £ilename$? 
GETINFO filenames, infos, Lengths? 
IF LengthS<l THEN? 

IF Lengths— 1 THEN? 
DIRERR? 

ELSEIF LengthS-0 THEN? 
FILEERR? 

END IF? 

GOTO GetFilename? 
END IF? 
Allocation . 2 : ? 
COLOR 3,1:CLS ? 

bufferS=AllocMemS (Lengths, 655376) ? 
IF bufferS-0 THEN? 

ALLOCERR? 

GOTO Allocation. 2? 
END IF? 

LOADFILE filename$, buffers, Lengths? 
IF filename$="" THEN? 

CALL FreeMem(bufferS,Length6)? 

LOADERR? 

GOTO GetFilename? 
END IF? 
IF PEEK (buffers )OSHF5 THEN? 
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CALL FreeMem (buffers , Lengths ) 1 

F0RMERR5 

GOTO GetFilename! 
END IF! 

NEWFILE filename$ f 
BytesS-1! 

DWRITE bufferS,BytesS! 
pointerS-bufferS+l! 
GetLength:! 

BytesS=£>EEK (pointer &+1 ) 1 
IF BytesS-4 THEN! 

pointer S=pointerS+4 ! 

GOTO GetLength! 
ELSEIF BytesS>4 THEM 

IF PEEK (pointers) -128 THEN offsS-6 ELSE offsS=4! 

IF PEEK(pointerS+offsS)0175 THEN! 
DWRITE pointers, BytesSl 

END IF 1 

pointerS=T?ointerS+BytesS! 

GOTO GetLength! 
ELSE?! 

IF <(pointerS-bufferS+l)MOD 2)-l THEN! 
pointer&=pointerS-l! 

END IF! 

BytesS=LengthS- (pointerS-buf f erS+1) +15 

DWRITE pointers, Bytes*! 
END IF! 
CLOSE 11 

OPEN filename$+ ,, -RL.info" FOR OUTPUT AS 11 
OPEN filenaroe$+".info" FOR INPUT AS 21 
PRINT#1, INPDT$ (LOF (2) , 2) ;! 
CLOSE 2,11 

KILL filename$+ M -RL. info. info"! 
1 

CALL FreeMem (buffers, Lengths)! 
CALL FreeMem(infoS,252S)5 
LIBRARY CL0SE1 

COLOR 3, 1:CLS: LOCATE 2,2:PRINT "Ready."! 
WHILE INKEY$-"":WEND! 
SYSTEM! 
SOB WRITEERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Write-error. 
ShowCont! 
END SUB 1 

SUB DWRITE (adrS, Lengths) STATIC! 
FOR is-l TO Lengths! 

PRINT#1 , CHR$ (PEEK (adrS-1+iS) ) ; 1 
NEXT! 
END SUB! 
SUB OPENERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Can't open 
File."! 

ShowCont! 
END SUB 1 

SUB NEWFILE (filename$ ) STATIC! 
File$=f ilename$+" -RL" 1 
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OPEN File$ FOR OUTPUT AS 1 5 
END SUB II 
SUB FORMERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2, 2: PRINT "ERROR: Not a binary 
File."! 

ShowContf 
END SUB 5 
SUB LOADERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Load-error."! 
ShowCont! 
END SUB! 
SUB LOADFILE(filename$, buffers, Lengths) STATIC! 

File$=f ilename$+CHR$ (0) 
:handleS=xOpenS (SADD (File$) , 1005) ! 
IF handleS»0 THEN! 

filename$=""! 
ELSE 5 

inBufferS-xReadS (handles, buffers, Lengths) 5 
CALL xClose (handles) 5 

IF inBufferSOLengthS THEN filename$=""5 
END IF! 
END SUB! 
SUB FILEERR STATIC! 

COLOR 1, 3 :CLS: LOCATE 2, 2: PRINT "ERROR: File not 
found. "5 

ShowContf 
END SUB ! 
SUB DIRERR STATIC!! 

COLOR 1, 3 :CLS: LOCATE 2,25 
PRINT "ERROR: File is a Directory. "5 
ShowCont! 
END SUB! 
SUB GETINFO (filename$, infos, Lengths) STATIC! 

File$=f ilename$+CHR$ (0) :DosLockS=LockS (SADD (File$) , - 
2)5 

IF DosLockS»0 THEN ! 

Lengths=0<jl 
ELSEf 

Dummy &=Examine& (DosLockS,infoS) ! 
IF PEEKL(infoS+4)>0 THEN 5 

LengthS<=-l 5 
ELSE ! 

LengthS=PEEKL(infoS+124) ! 
END IF! 
END IF! 

CALL UnLock(DosLockS)! 
END SUB! 
SUB LINPUT(filename$) STATIC! 

COLOR 3, 1:CLS: WINDOW 2, "Filename:", (0,0)-(250, 10) ,0! 
WINDOW OUTPUT 1: LOCATE 5,25 
PRINT "Name of a binary saved File"; 5 
LINE INPUT filename$ : WINDOW CLOSE 21 
END SUB! 

SUB SELECT (box%) STATIC! 
Check: ! 

WHILE MOUSE (0)=0:WEND:x=M0USE(l) :y-MOUSE(2)5 
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IF y>27 AND y<43 THENS 

IF x>9 AND x<38 THEN box%-0:EXIT SOBS 

IF x>177 AND x<238 THEN box%— 1:EXIT SOBS 

END IFS 

GOTO Checks 
END SOBS 
SOB ALLOCERR STATICS 

COLOR 1, 3 :CLS: LOCATE 2,2:PRINT "ERROR: Allocation 
denied. "1 

ShowContS 
END SOBS 
SOB ShowCont STATICS 

LOCATE 4,2:PRINT "Press SPACE to continue, "S 

LOCATE 5, 7: PRINT "ESCAPE to exit.";S 

WHILE a$OCHR$(32) AND a$<>CHR$<27)S 
a$=INKEY$S 

WENDS 

IF a$=CHR$(27) THEN SYSTEMS 
END SOBS 
SOB REQOEST (disk$) STATICS 

COLOR 3,1:CLSS 

LOCATE 2, 2: PRINT "INSERT ";disk$;" DISK INTO DRIVE" S 

LOCATE 3,14:PRINT "DF0:":LOCATE 5,3:PRINT "OK";l 

LOCATE 5,24:PRINT "CANCEL"; :LINE(10,28)-(37,42) ,3,bS 

LINE(178,28)-(237,42),3,bS 
END SOBS 

Variables ALLOCERR SUB routine; memory reservation error 

AllocMem EXEC routine; reserves memory 

Bytes length of file being edited 

D IERR SUB routine; error— no file 

DWRITE SUB routine; write to file 

DosLock file handle of Lock 

Dummy unused variable 

Examine DOS routine; looks for file 

FILEERR SUB routine; error 

FORMERR SUB routine; error 

File filename with concluding for DOS 

FreeMem EXEC routine; frees memory range 

GET INFO SUB routine; file check 

LINPUT SUB routine; input 

LOADERR SUB routine; error 

LOAD LE SUB routine; load program 

Length file length 

Lock DOS routine; blocks access from other programs and 

provides handle 

NEWFILE SUB routine; create new file 

OPENERR SUB routine; error 

REQUE S T SUB routine; draw primitive requester 

SELECT SUB routine; select through mouse click 

ShowCont SUB routine; show options 

UnLock DOS routine; releases Lock 

WRITEERR SUB routine; error 

a help variable 
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adr 


address 


b 


help variable 


box 


help variable 


buffer 


address of reserved memory 


disk 


diskette 


filename 


name of file 


handle 


address of file handle 


i 


help variable 


inBuffer 


bytes read 


info 


address of file info structure 


offs 


offset 


pointer 


help variable 


written 


bytes written 


X 


help variable 


xClose 


DOS routine; closes file 


xOpen 


DOS routine; opens file 


xRead 


DOS routine; reads file 


y 


help variable 



6.3.5 



Listing variables 



Note: 

ill 



You may look at a listing for an older BASIC program, and wonder 
how you can solve any of its problems. Part of human nature lies in 
doing no more work than necessary. You want to avoid detailed docu- 
mentation, and at the same time, keep from being buried in a stack of 
program printouts. 

Thanks to modular programming, you can store a collection of short 
routines on diskette, and merge them into programs as needed. Docu- 
menting these short routines is indispensable. Also, many magazines 
from which you get program listings usually supply detailed documen- 
tation. 

The program here gives variable lists and label names. These items are 
vital to documenting program code. For example, you could check out 
the variable lists of two files before MERGEing one to the other. This 
avoids any major rewrites on both programs for changing variables to 
match/conflict. Bear in mind that the variable list program can view 
SUB programs and operating system routines as variables, even if the 
variable types are different. This kind of thing can occur in other aspects 
of BASIC with DEFINT xxx (e.g., DEFINT a-c). For example, if 
you use a variable named Anton$, this variable appears in the list 
under Anton. If you want the program to ignore uppercase and lower- 
case during sorting, remove the four UCASE$ ( ) statements after the 
display label. 

The loading and saving conventions used in the two preceding programs 
apply to this section as well. 
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# Variable-List Amiga #! 
# n 

# (W) 1987 by Stefan Maelger #5 

######################################5 
! 
"dos.bmap" and "exec.bmap" must be on! 
Disk of in LIB:! 



CLEAR, 50000S! 

DECLARE FUNCTION AllocMemS LIBRARY! 

DECLARE FUNCTION Locks LIBRARY! 

DECLARE FUNCTION Examines LIBRARY! 

DECLARE FUNCTION xOpenS LIBRARY! 

DECLARE FUNCTION xReadS LIBRARY! 

LIBRARY "exec. library"! 

LIBRARY "dos. library"! 

WINDOW CLOSE WINDOW (0)! 

DIM vamame$ (2000) , var% (2000) ,er$ (5) ! 

FOR i=0 TO 5:READ er$(i) :NEXT! 
! 

DATA "File contains no binary."! 
DATA "Read-Error. ","File open error."! 
DATA "File is a directory.", "File not found."! 
DATA "Allocation denied."! 
! 
nextTry:! 

REQUEST "Place Disk into Drive dfO.'M, "OK", "",flag%! 

WINPUT filenames! 

CHECKFILE filename$, buffers! 

IF buf fers<0 THEN! 
e%=6+bufferS! 

REQUEST er$ (e%) , 2, "CANCEL" , "QUIT" , f lag%! 
IF flag%=2 THEN LIBRARY CLOSE: SYSTEM! 
GOTO nextTry! 

END IF! 

pointerS<=bufferS+l! 
! 
ReadLine:! 

SETPOINTER pointers , flag%! 

IF flag%=l GOTO ReadNames! 
! 
ReadToken:! 

CHECKTOKEN pointers, number%! 

IF number%<0 GOTO ReadLine! 

var%(number%)"°l:GOTO ReadToken! 
! 
ReadNames:! 

current%=0! 
! 
searching:! 

IF PEEK (pointers) -0 OR PEEK (pointers ) >SH60 THEN! 
pointerS=pointerS+l:GOTO searching! 

END IF! 
! 
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getlength:? 

length%-PEEK (pointers ) f 
IF length%-0 GOTO display^ 
FOR i%-l TO length%5 
pointerfi-pointerS+15 

varname$ (current%) -vamame$ ( current % ) +CHR$ (PEEK (pointers ) 

>I 

NEXT! 

current%-current%+lfl 
pointer&-pointerfi+l:GOTO getlengtM 
f 
display: f 

f lag%-l : f irst%-0 : last%-current%-25 
WHILE flag%-lH 
flag%-05 
FOR 1%-f irst% TO last%5 

IF UCASE$ (varnaroe$ (1%) ) >UCASE$ (varname$ (i%+l) ) 
THEM 

SWAP vamame$(i%),varname$(i%+l)fl 
SWAP var%(i%),var%(i%+l)H 
flag%«=lH 
END IFf 
NEXT! 

start%»start%+l : f lag%-0fl 
FOR i%=last% TO first% STEP -If 

IF UCASE$ (varname$ (1%) ) <UCASE$ (vamame$ (i%-l) ) 
THEN5 

SWAP varname$ (i%) , varname$ (1%-1) f 
SWAP var%(i%),var%(i%-l)5 
flag%=H 
END IFH 
NEXTI 

last%=last%-lH 
WEND1 
f 

Displays : f 
BEEPU 

REQUEST "List to Screen?", 2, "YES" , "NO" , sf lag%5 
REQUEST "List to Printer?", 2, "YES", "NO", pflag%H 
REQUEST "Save as ASCII-File?", 2, "YES", "NO", fflag%5 
IF sflag%-2 AND pflag%-2 AND fflag%»2 GOTO ausgabe2f 
IF sflag%»l THEN WINDOW 2 , "Variables :" , (0,0)- 
(240, 180), 3111 
IF f f lag%°l THENf 

OPEN filename$+".V" FOR OUTPUT AS If 
PRINT#1, CHR$ (10) ; "Variable-List: "; f 

PRINT#1, CHR$ (10) ; " ";CHR$ (10) ;CHR$ (10) ; f 

END IFfl 

IF pf lag%=l THENH 

LPRINT "Variable-List from: "f 
LPRINT filename$:LPRINT1[ 
END IFH 

FOR i%=0 TO current%-lH 
IF var%(i%)=l THENf 

IF sflag%=l THEN PRINT varname$ (i%) f 
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IF pf lag%-l THEN LPRINT varname$ (i%) S 
IF ££lag%-l THEN PRINT#1, vamamsS (i%) ;CHR$ (10) ; S 
END IFS 
NEXTS 

IF f£lag%-l THEN CLOSE 15 
REQUEST "Read/.",l,"OK"," , *,flag%5 
LIBRARY CLOSES 
SYSTEMS 
S 
SOB CHECKTOKEN(aS,n%) STATICS 
PeekToken:S 

t%<4EEK(a&) :aS-a&+lS 

IF t%-0 THEN strflag%-0:n%— 1:EXIT SUBS 
IF strf lag%-l AND t%034 GOTO PeekTokenS 
IF t%>127 THENS 

IF t%>247 THEN a&-aS+lH 
GOTO PeekTokenS 
ELSEIF t%»l THEN? 

n%=CVI (CHR$ (PEEK (aS) ) +CHR$ (PEEK (aS+1 ) ) ) : aS-aS+2 :EXIT 
SUBS 

ELSEIF t%-2 OR t%-ll OR t%-12 OR t%-28 THENS 

aS-a&+2:GOTO PeekTokenS 
ELSEIF t%=15 THENS 

aS-=aS+l:GOTO PeekTokenS 
ELSEIF t%-29 OR t%-30 THEM 

aS=*aS+4:GOTO PeekTokenS 
ELSEIF t%=31 THENS 

aS=aS+8:GOTO PeekTokenS 
ELSEIF t%»3 OR t%=14 THENS 

aS-a&+3:GOTO PeekTokenS 
ELSEIF t%=34 THENS 

IF strflag%=l THEN strflag%=0 ELSE strflag%=>lS 
GOTO PeekTokenS 
ELSE! 

GOTO PeekTokenS 
END IFS 
END SUBS 

S 
SUB SETPOINTER(aS,f%) STATICS 

IF PEEK(aS+l)-0 THEN f%-l ELSE f%-0S 
IF PEEK(aS)=0 THEN aS«aS+3 ELSE a&-aS+5S 
END SUBS 

s 

SUB CHECKFILE(a$,f&) STATICS 
iS-AllocMemS (2526 , 65538S ) S 
IF ±S=0 THEN S 

fS=-l:EXIT SUBS 
ELSE! 

b$=a$+CHR$ (0) :l&=LockS (SADD (b$) ,-2) S 
IF 1S=0 THENS 

fS=-2:EXIT SUBS 
ELSES 

sS=£xamineS (IS, is) S 
IF PEEKL(i&+4)>0 THENS 

fS=-3:CALL Unlock (IS) :EXIT SUBS 
ELSES 
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fS-PEEKL(i&+124):CALL Unlock (ls)f 
CALL FreeMem(iS,252&) :v&-fs+3f 
cS=AllocMem& (v&, 655374) f 
IF c&=0 THENf 

f&"»-l:EXIT SUBf 
ELSEf 

hS»xOpen& (SADD (b$) , 1005) f 
IF h&-0 THENf 

f&=-4:EXIT SUBf 
ELSE! 

r&~xRead& (h& , c&, f &) :CALL xClose (h&) f 
IF riOf & THENf 

ffi— 5: EXIT SUBf 
ELSE!! 
f&=cSf 

IF PEEK(f&)OSHF5 THEN £*=-6:EXIT SUBf 
END IF! 
END IF f 
END IF! 
END IFf 
END IFf 
END IF1I 
END SUBf 
f 
SUB WINPUT (a$) STATICf 

WINDOW 1, "Input: Filename", (0,0) -(240,8) , Of 
LINE INPUT a$f 
WINDOW CLOSE If 
END SUBf 
I 
SUB REQUEST (a$,m%,b$,c$,b%) STATICf 

WINDOW 1, "System Request", (0,0)-(240,40) ,22f 
COLOR 0,1:CLS: LOCATE 2, (30-LEN(a$) )\2:PRINT a$;:COLOR 
1,01 

IF m%-l THENf 

l%-LEN(b$)/2: LOCATE 4,15-1%:PRINT " ";b$;" ";f 
ELSEIF m%=2 THENf 

LOCATE 4,2:PRINT " ";b$;" ";:LOCATE 4,27-LEN(o$)f 
PRINT " ";c$;" ";f 
END IFf 
mousel : f 

WHILE MOUSE (0)<>0:WENDf 
WHILE MOUSE (0)=0:WENDf 

x%= (MOUSE (1) +8) \8:y%= (MOUSE (2) +8) \8:b%=0f 
IF y%=4 THENf 
IF m%=l THENf 

IF x%>14-1% AND x%<17+1% THEN b%=lf 
ELSEIF m%=2 THENf 

IF X%>1 AND x%<LEN(b$)+4 THEN b%-lf 
IF x%>26-LEN(c$) AND x%<30 THEN b%=2f 
END IFf 
END IFf 
IF b%>0 THENf 
WINDOW CLOSE If 
EXIT SUBf 
END IFf 
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GOTO mouselfl 
END SUB1 



This program created many of the variable lists in this book. 



6.3.6 



Removing "extra" variables 



Maybe you've wondered why a binary format BASIC program becomes 
longer when you load, shorten and resave it, instead of shorter. Or 
you've noticed when your BASIC program stops with an error, the 
orange error box surrounds a couple of blank lines. You find that there's 
garbage in the program that you can only see with the file monitor. 
Why does the big program you've been working on run slower and 
slower every time you edit it? And how can you manipulate internal 
errors in a binary program? 

There is a solution to these problems. As you repeatedly save programs 
from the AmigaBASIC interpreter, the interpreter adds bits of extran- 
eous data to the file (garbage). Like a garbage can, the program can only 
hold so much of this garbage. This also goes for the entire memory 
range assigned to the variable table. When you save a program, the 
interpreter saves it without checking which variables still belong to the 
program and which don't The final problem is that important pointers 
remain uninitialized— especially if these pointers stay unset before 
saving or reloading a program. 

There is, as always, a loophole. When you save a program in ASCII 
format, what you get in the file is what you see on the screen: Plain 
text separated by linefeeds (CHR$ (10)). 

Save your program once with the extension ,A. 

Quit AmigaBASIC (if you just type new, the garbage still stays 
on the screen, and the pointers stay unchanged). 

Restart AmigaBASIC's interpreter. 

Load die program. 

Save the program with the extension of ,B (binary format— very 
important). 

Remember the following rules when trying this resaving: 

1) This process works best when you save incomplete programs as 
ASCII files in the first place. Save the program out in binary 
form when you wish to try running the program and/or debug- 
ging it 
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2) When a program runs into a problem you may not be able to 
see, the logical solution is to save the file in ASCII format; you 
might recover the program. 

3) The worst thing you can do is save a program in binary format 
after a test run mat resulted in an error message. This causes the 
most garbage sent from the interpreter. 

4) If your program doesn't run after all, it may be due to program- 
mer error or memory error, or an error in AmigaBASIC itself. 



6.3.7 Self-modifying programs 



There are methods that allow changing program code as a program runs. 
The two programs listed below can bring this about 

The first method of program modifying is direct access through POKE. 
The prinicple is simple: You assign a set of characters to a string vari- 
able at any point in the program. It is important that you make no 
changes to the string itself, such as A$=A$+CHR$ (0 ) . You can point 
the variable pointer direct to the string in your program. 

This first example lets you change strings within a program This rou- 
tine opens the window named in the string. Selecting the CHANGE item 
from the menu lets you insert a new window title, after which the new 
program loads and starts. 



REM ********************************************j 
REM* Self Modifying I *fl 

5 



REM * — — — — — — - — — ~ — -,. „___., _____ _£ 



REM * (W) 1987 by Stefan Maelger, Hamburg *f 

REM ********************************************* 

I 

REM * The new Title String will be changed here: 5 

Title$-"Self Modifying I "5 

5 

SCREEN 1,320,200,2,15 

WINDCW 2,Title$, ,16,15 

MEND 1,0,1, "CHANGE"! 

MENU 1,1,1, "TITLE"! 

ON MENU GOSUB checkmenufl 
MENU ON! 

! 

WHILE Maelger=05 

SLEEP! 

WEND! 

! 

MENU RESET! 
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WINDOW CLOSE 2! 

SCREEN CLOSE 1! 

END! 

! 

checkmenu:! 

IF MENU(1)-1 AND MENU(0)-1 GOTO newtitle! 

RETURN! 

I 

newtitle:! 

PRINT "Please enter new Title"! 

PRINT LEN (Title$) ; "Characters Long."! 

LINE INPUT newt$! 

neu$-LEFT$ (newt$+SPACE$ (LEN (Title$) ) , LEN (Title$) ) ! 

! 

REM * Here is where the String is changed:! 

! 

FOR i=l TO LEN(newt$)! 

POKE SADD (Title$) +i-l, ASC (MID$ (newt$, i, 1) ) ! 
NEXT! 

! 

REM * Start Program again (with the new Title)! 

PRINT "Program with new title being saved."! 

SAVE , 'Programname ,, ! 

PRINT "New Program is saved."! 

PRINT "Re-Load or start this"! 

PRINT "program over again."! 

t=TIMER+15: WHILE t>TIMER:WEND! 

Maelger=l! 

RETURN! 

You can see how simple it is. Replace "Programname" with your 
own program name. 

This method lets you change commands in a binary format program. 
However, it also allows changes to files saved in protected format. 

Now we come to the second method— the ASCII file method. Here, 
too, you can completely change a program The clincher to this method 
is the ease in changing entire program sections. 

Using POKE to change parameters in a binary format program can have 
serious consequences: It isn't that easy to change commands. The 
ASCII file route makes this replacement much simpler. 

Here's the principle behind it First the program section must be found 
How it for replacement. User input works with a syntax check to find the area 

works that needs changing. The running program deletes the program lines 

you want changed (DELETE from-to). The program then saves to disk- 
ette as an ASCII file. While the change waits under its own name, the 
RAM disk supplies the most speed. Now the saved ASCII program 
opens for appending (OPEN x$ FOR APPEND AS y), and the DATA 
generator creates the new program segment 
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In i order to get this program into memory, all you need to enter is RUN 
filenames or LOAD filenames. The program starts all over 
again, so that you can create the new program section as an ASCII file 
in the RAM disk, then join the programs with CHAIN MERGE You 
can also restart the altered program with a starting label, and merge a 
series of program segments (e.g„ CHAIN stuff, lines,ALL). 

REM ***************************************** 5 

REM* SelfModifyino II *5 
REM * 1 „* 

REM * (W) 1987 by Stefan Maelger, Hamburg *S 

rem ***********************************^****« 

s * 

REM * Gat the Screens Resolutions 

S 

GOSDB VariableLabell 

S 

SCREEN l,SWidth%,Height%,Depth%,Mode%3 

WINDOW 2, "Hello! ",,0, IS 

S 

PRINT "Width in Pixels :";SWidth%S 

PRINT "Height in Pixels :";Height%S 

PRINT "Depth in Planes: ";Depth%S 

S 

PRINTS 

PRINT "Please enter the"S 

PRINT "New Width: ";S 

INPUT NewWidth%S 

IF NewWidth%<20 OR NewWidth%>640 THENS 

NewWidth%-SWidth%S 
END IFS 

INPUT "New Height: ";NewHeight%S 

IF NewHeight%<10 OR NewHeight%>512 THENS 

NewHeight%-*eight%S 
END IFS 

INPUT "New Depth: ";NewDepth%S 
IF NewDepth%<l OR NewDepth%>5 THENS 

NewDepth%-Depth%S 
END IFS 
PRINTS 
Mode%-lS 

IF NewWidth%>320 THEN Mode%-2S 
IF NewHeight%>256 THEN Mode%^fode%+2S 
IF Mode%-4 AND NewDepth%>2 THENS 

NewDepth%-2S 
ELSEIF Mode%>l AND NewDepth%>4 THENS 

NewDepth%-4S 
END IFS 

OPEN "Programname.t" FOR OUTPUT AS IS 
PRINT#1 , "VariableLabel : "; CHR$ (10) ; S 
PRINT#1, "SWidth%-";STR$ (NewWidth%) ;CHR$ (10) ;S 
PRINT#1, "Height%-";STR$ (NewHeight%) ;CHR$ (10) ;S 
PRINT#1, "Depth%-»;STR$ (NewDepth%) ;CHR$ (10) ; S 
PRINT#1, M Mode%-»;STR$ (Mode%) ;CHR$ (10) ;S 
PRINT#1, "RETURN" ;CHR$ (10) /S 
PRINT#1, "VariableLabelEnd: ";CHR$ (10) ; S 
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CLOSE 15 

DELETE VariableLabel-VariableLabelEndU 

SAVE "Programname", A5 

OPEN "Programname. t" FOR INPOT AS If 

OPEN "Programname" FOR APPEND AS 2H 

PRINT#2 , INPOT$ (LOF (1) , 1) ; 5 

CLOSE 25 

CLOSE 15 

KILL "Programname. t"5 

WINDOW CLOSE 25 

SCREEN CLOSE If 

LOAD "Programname", R5 

END5 

5 

I 

VariableLabel:5 

SWidth%- 3205 

Height%= 2005 

Depth%- 21 

Mode%= 15 

RETDRN5 

VariableLabelEnd: 5 

Amazing, isn't it? This procedure is particularly good for any kind of 
graphic program. For example, you could enter user-defined functions in 
a function plot, palette values in a drawing program, etc. 
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The Workbench 



The Amiga's user interface leaves nothing to the imagination. All 
important operations are realized through icons. These icons make text 
input almost unnecessary, thus removing the barriers so often caused by 



There are some Workbench functions that few users even know about 
These users can form easy solutions to tough problems. This chapter 
shows how effectively these functions can be used, with a minimum of 
time and effort 
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7.1 Using the Workbench 

The Workbench is the one part of the Amiga that the user sees most 
often. With that in mind, here are some helpful hints for making your 
workbench maintenance and use easier and more efficient 



7.1.1 Keyboard tricks 



Do you know what a string gadget is? Essentially, it's a miniature 
input window. String gadgets are used by the Amiga whenever it needs 
some form of keyboard input (e.g„ for renaming a diskette). Instead of 
pressing the <DEL> key to delete the old name, press and hold the 
-tfight Amiga> key and press the <X> key. Presto, the string gadget 

ClCaTS* 

In most cases, <right Amiga><Q> acts as an Undo function, restoring 
the last item changed. 

When you want to move the cursor to the first character of the input 
line, press <SHIFT><Cursor Ieft>. Pressing <SHIFT><Cursor right> 
to get to the end of the input line. 

Now we come to the icons. Suppose you want to select more than one 
icon. Hold down the <SHIFT> key and click on every icon you want 
selected. Whatever you do to/with the last icon applies to all the icons 
selected in this one pass. For example, if you want to throw the multi- 
selected icons into the Trashcan, just drag the last icon to the Trashcan 
(you can release the <SHIFT> key). 

When CLI output flashes by on the screen (e.g., directory listings), 
you can stop the listing by pressing the <RETURN> key. Continue 
the listing by pressing the <Backspace> key. 

If you want to go to the beginning of a screen, or just open a fresh win- 
dow, press <CTRL><L> to clear the screen. 

Now and again a prompt may not appear. <CTRLxO> and 
<RETURN> returns the prompt to the screen. 

<CRTL><D> interrupts the startup sequence, while <CRTLxC> in- 
terrupts any currently executing command. 
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Easter eggs 



Many programmers and hardware developers place "signatures" on their 
creations. These signatures are sometimes called Easter eggs, because 
they are hidden in the system for the user to find. This adds a personal 
touch to the software or hardware design. 

The Amiga has a few of these Easter eggs built-in. You can see them 
on the screen if you have a little patience and very flexible hands. 

• Boot the Workbench diskette. 

After the Workbench screen appears, press and hold both <ALT> 
keys AND both <SHIFT> keys. 

With your free fingers, press function keys <F1> to <F10> and 
watch the title bar. 

Each function key lists the people responsible for different aspects of 
Amiga design. 



7.1.2 



The Trashcan 



Not everything you make when computing is worthwhile. The develo- 
pers of the operating system created the Trashcan for disposing of 
garbage. It's easy to use: 

Select the icon you want to get rid of. 

Drag it to the Trashcan. 

Click on the Trashcan icon. 

Select the Empty Trash item from the Disk pulldown menu. 

There's an even simpler way to do it The above process works well, on 
the condition that you remember to empty the trash. However, if you 
don't the diskette keeps the data placed in the Trashcan in disk memory. 
Since diskettes only have a capacity of about 880K, this can take up a 
great deal of disk memory. 

Now for the simpler method: 

Click once on the file icon you want disposed of. 

Select the Discard item from the Workbench pulldown 
menu. 

Click on the ok to discard gadget in the system requester. 
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7.1.3 



Extended selection 



Have you ever wondered about how to organize icons in every window 
ff you put your Extras diskette in the drive and open the BAS ICdemos 
drawer, you'll see 25 icons. Most of these icons have such long names 
that the clean Up item doesn't put most of them in neat order. 

You could conceivably select and move each icon, then execute the 
Snapshot item from the Special pulldown menu each time you 
get an icon into position. This takes time, though. 

There's a simpler way out. Every icon you click stays active while you 
hold down one of the <SHBFT> keys. Most of the functions you can 
perform on single icons work with multiple icons (assuming that these 
functions match the icons). For example, you can't use Discard on a 
disk icon. 

Move each icon into the desired position. 

Press and hold the <SHIFT> key. 

Click on all the icons you want organized. 

Release the <SHIFT> key. 

Select the Snapshot item from the Special pulldown menu. 

If you wish to copy several programs, this extended selection helps you 
to do this copying quickly and easily. You can drag a set of icons across 
the screen, and onto the windows in other diskettes. The only disadvan- 
tage is mat diskette exchanges must be made for every program. 

If you wish to avoid this constant diskette switching, here's a quick 
method of getting around this: 

Copy the Empty drawer of the Workbench diskette onto the for- 
matted source diskette. 

Move all icons you want copied into this drawer using extended 
selection. 

Drag the drawer to the target diskette icon. 
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7.1.4 Reading and setting Preferences 



The name Preferences speaks for itself: This program lets you 
adjust the Amiga to your individual needs. It allows selection of almost 
any printer type, any number of screen colors and more. The Prefer- 
ences icon normally appears in the workbench window. 

What can the intermediate programmer start to do with these Prefer- 
ences? A lot! Preferences stores its data and parameters in a long 
data block. This data block has the following structure: 



+ Offset 


Type 


Definition 





B 


Font height 


1 


B 


Printer port: 0=parallel, l=serial 


2 


W 


Baudrate: 0=110, 1=300, 2=1200, 3=2400, 
4=4800, 5=9600, 6=19200, 7=MIDI 


4 


L 


keyboard repeat — seconds 


8 


L 


keyboard repeat— microseconds 


12 


L 


keyboard delay — seconds 


16 


L 


keyboard delay — microseconds 


20 


W 


Sprite pointer definition array, approx. 72 
bytes 


100 


B 


X-offset of pointer hot spot 


101 


B 


Y-off set of pointer hot spot 


102 


W 


RGB information for color register 17 


104 


W 


RGB information for color register 18 


106 


W 


RGB information for color register 19 


108 


W 


Pointer ticks (sensitivity) 


110 


w 


RGB information for color register 


112 


w 


RGB information for color register 1 


114 


w 


RGB information for color register 2 


116 


w 


RGB information for color register 17 


118 


B 


X-offset of view 


119 


B 


Y-offsetofview 


120 


w 


X-offset of view (initialization) 


122 


W 


Y-offsetofview 


124 


W 


CLI on/off (0/1) 


126 


w 


Printer type (see following sample program 
for definitions) 


128 


B 


Bytefield with printer filenames 


158 


W 


Typestyle: 0=Pica, $400=Elist, $800=Fine 


160 


w 


Print quality: 0=draft, $100=NLQ 


162 


w 


Line spacing: 0=6 LPI, $200=8 LPI 


164 


w 


Left border 


166 


w 


Right border 


168 


w 


Print type: 0=positive, l=negative 


170 


w 


Print direction: O=horizontal, l=vertical 


172 


w 


Gray scales: 0=B/W, l=gray scales, 2=color 
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174 W Contrast 

176 W Paper size: 0=US letter, $10=US legal, $20= 

narrow carriage, $30=wide carriage, $40= 

custom 
178 W Paper length 

180 W Paper type: 0=endless, $80=single sheet 

The following program offers three SUB programs which load this data 
record, send the modifications back to Preferences and exit 

' ###########################! 
'# Program: Preferences #! 
'# Author: tob #! 
'# Date: 8/12/87 #! 
'# Version: 2.0 #! 

• ##########################H 

DECLARE FUNCTION AllocMemS LIBRARY! 

! 

LIBRARY "exec. library"! 

LIBRARY "intuition. library"! 



demo: 



'*Read and change preferences! 

'♦Change screen colors! 

GetP prefsS, 220! 

! 

POKEW prefss + 110, 1*15 + 256*15! 

POKEW prefss + 112, 1! 

POKEW prefss + 114, 16*15! 

SetP prefss! 
! • 

'* Sample printer settings! 
DIM pr$(12)! * 

pr$(0) = "Custom"! 
pr$(l) = "Alpha P 101"! 
pr$(2) » "Brother 15XL"! 
pr$(3) - "CBM MPS 1000"! 
pr$(4) - "DIAB 630"! 
pr$(5) = "DIAB ADV D25"! 
pr$(6) = "DIAB C 150"! 
pr$(7) = "Epson"! 
pr$(8) - "Epson JX 80"! 
pr$(9) - "Okimate 20"! 
pr$(10) - "Qume LP 20"! 
pr$(ll) = "HP Laserjet"! 
pr$(12) = "HP Lasertjet +"! 

S^SS!!! please s «l«ct a printer type:"! 
PRINT! 

! 

FOR loop% - TO 12! 

PRINT pr$(loop%)! 
NEXT loop%! 
! 
PRINT! 

LINE INPUT" Your selection. . .";in$! 

! 

FOR loop% - TO 12! 

IF r^^l (±n$> = UCASE$ ( P r$ < lo °P%) > THEN! 
loop% - 12! 
flag% = 1! 
END IF! 
NEXT loop%! 
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Program 
description 



IF f lag% - 1 THEN! 
flag! - 0! 
CLS! 

POKEW prefsS + 126, pr%! 
SetP prefsS! 
LINE INPUT "Would you like to run a printer 

test? <y/n£;yn|H_ rBEm 

LPRINT"testTESTtestTESTtestTESTtestTEST"! 
LPRINT"TESTtestTESTtestTESTtestTESTtest"! 
END IF ! 
ELSE ! 
CLS ! 

PRINT"Your printer type not listed."! 
END IF! 
! 

Finish prefs! 
! 

LIBRARY CLOSE! 
END! 
! 
SOB GetP (datums, size%) STATIC! 
opts = 2 A 16! 
memS <= size% + 4! 
adds = AllocMemS(memS,optS)! 
IF adds O THEN! 
POKEL adds, memS! 
datums =■ adds + 4! 
CALL GetPrefs (datums, size%)! 
ELSE! 

datumS-0! 
END IF! 
END SUB! 

! 
SUB SetP (datums) STATIC! 
IF datumSOO THEN! 

sizes - PEEKL (datums - 4) - 4! 
CALL SetPrefs (datums, sizes, -1)! 
END IF! 
END SUB! 

SUB Finish (datumS) STATIC! 
IF datums <>0 THEN! 

memS = PEEKL (datumS - 4)! 
adds = datums - 4! 
CALL FreeMem (adds, memS)! 
END IF! 
END SUB! 

GetP makes a copy of the abovementioned Preferences data 
block. Enter a variable into which the address of the copy is placed, as 
well as the desired number of bytes. In normal cases, the entire data 
record requires 180 bytes. However, if you're just interested in the first 
entry, you can enter far fewer bytes. 

Now you can change the copy as you want it to appear in the program. 
If all changes are as you want them, then SetP puts the changed copy 
into Preferences, thus activating the changes. 

Finish returns the copy memory to the system. 
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7.1.4.1 



Info 



The Info item from the Workbench pulldown menu allows the user 
to look at information in programs and data files. But which informa- 
tion can you change? These are questions that the Amiga manual 
doesn t discuss. Here are some answers. 



7.1.4.2 



The Info screen 



Disk 



Drawers 



Tools 



This screen appears after selecting any kind of icon and selecting the 
Info item from the Workbench pulldown menu. The Info screen 
lists all the vital information about the program The Workbench disk- 
ette should not be removed during the selection of Info. 

The Info screen has several areas. The upper left corner lists common 
data about the file and/or diskette— name, type and the size in two 
different measurements. Beneath stack the number of bytes the file 
uses in memory is listed. 

Type describes the type of icon for a file or diskette. The normal icon 
types are Disk, Drawer, Tool, Project and Garbage: 

Disks are the diskette icons which lie outside of directory windows 
Double-clicking on a disk opens the disk window (the diskette's main 
directory). 

The only item of interest about this icon type is that, like the other 
icons, you can change its shape. Computer owners into nostalgia can 
change the disk icons to look like 5-1/4" diskettes. 

Drawers are the icons which represent subdirectories. Moving programs 
into a drawer easily lets you find programs on the same diskette. This 
operation takes a lot of time, though. Here's a suggestion: Use the 
RENAME command from AmigaDOS. Enter the first name with the full 
path specification, then enter the new name with the path under which 
you want the program placed (don't forget to copy the .info file to the 
new path as well). 

Any executable program is called a tool. Tools can lie in drawers, 
windows and on the Workbench screen. They have their own icons' 
which execute programs when you double-click on them 

AmigaBASIC, Preferences and BeckerText Amiga from 
Abacus are tools. 
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Amiga projects are any files that contain data saved from a tool 
Projects (program). 

Notepad texts, word processing files, BASIC programs and .bmap 
files are projects. 

This last type is actually another form of drawer. Normally you can 
Trashcan place drawers inside of drawers. The Trashcan drawer can only lie in the 

main directory. Plus, it can't be moved onto the Workbench screen. 
Whenever you need a Trashcan icon, look in the main directory. 

On the right side of the screen you'll see a box which lists the Status 
of the file. This refers to the access options offered to the user (see the 
AmigaDOS manual under LIST). When the write protect is set on the 
diskette, you can't change the read, write or executable attributes. When 
you get information from a diskette, this area lists whether the diskette 
is write-protected or write-enabled. Clicking this Status changes noth- 
ing; you must change the write-protect by hand. 

The user's Comments appear in the line below Status. Amiga- 
DOS's FILENOTE lets you write a text of up to 80 characters long. 
This function is suppressed by diskettes, since a diskette cannot be 
supplied with a comment 

The info screen does more than give information about programs or 
diskettes. They also supply details about projects (text and data files). 
Default Tool tells the user which tool created the project, or which 
diskette has the copy. The Workbench knows which project to load 
when you double-click a tool's icon. 

The last line displays Tool Types. This information is given by the 
main program. The Notepad, for example, states which font is in 
use, and the window size for input. 



7.1.4.3 



A closer look at the Info screen 



You can change the available information in the info screen. Write 
and save a text from the Notepad, and open its Info screen to look 
at the information. 

What you put under Comment has no effect on other parts of the 
system — it's just commentary. 

The Default Tool gadget is much more important. As mentioned 
earlier, this gadget lists the name of the tool (program) which created 
the project (file). There's a bug in this, though. For example: You set 
up two Workbench diskettes named user and cli. The first diskette, 
user, is a nearly normal Workbench. The second diskette, cli, has 
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been modified so that on startup it copies all the important cli 
commands to RAM, and stays in the DOS window. Both diskettes have 
a Notepad tool. If you write a text on the user diskette, the De- 
fault Tool gadget reads: 

Workbench user : Utilities/Notepad 

If you want to load a text, the user diskette must be in the drive. But 
the cli diskette also has a Notepad. All you need to do to read the 
same text from the cli diskette's Notepad is change the Default 
Tool text to read as follows: 

sys :Utilities/Notepad 

The Tool Types gadget holds all the information needed by the pro- 
gram You can change this also. Here are the'types and meanings: 



Name 


Example 


Definition 


FILETYPE 


notepad 


Notepad text 


FONT 


topaz. 8 


Global font 


WINDOW 


0,0,50,50 


Window coordinates 


FLAGS 


NOGLOBAL 


Hag listing 



The FILETYPE line identifies the tool that created the project FONT 
gives the name of the global font; you can change this, provided the 
font you change it to exists on the Workbench diskette. WINDOW lists 
the X- and Y-coordinates of the input window. Other values can go here 
as desired. The FLAGS gadget may be new to you, since it isn't used in 
normal saving. This gadget lists some parameters that are normally 
used in loading: 



Parameter Definition 

NOGLOBAL Disable global font function 

GLOBAL Enable global font function 

NOWRAP Disable word wrap 

wrap Enable word wrap 

nofonts Skip font table generation 

FORMFEED Add formfeed to printer driver 

DRAFT Print in draft quality 

Try these procedures out in other programs, such as programs that place 
data into files. Read the section on icons for information on saving 
these parameters to diskette and more. 
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8 . Icons 



The Amiga's Workbench user interface uses icons to help the user 
easily identify programs, data file, directories and diskettes. These icons 
appear as pictures that quickly indicate their purposes to the user. You 
start programs by double-clicking on their icons, instead of typing in 
the program name as you would from the CL I . 

Clicking icons saves the trouble of typing in disk paths to open 
directories and subdirectories to the file you want All you have to do is 
click on a drawer; click on the drawer inside the drawer that opens; and 
so on, until you get to the file icon you need. 

This chapter gives detailed information on icon design, drawer structure 
and image structure. Programs are included that let you edit icons and 
examine the structure of an icon from AmigaBASIC. You'll also find 
information about icon structure and creating multiple graphics for one 
icon (before double-clicking and after double-clicking) . 
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8 . 1 Icon types 



There's a problem with mis title: All icon symbols can stand for differ- 
ent objects. You have to be able to differentiate between directories and 
diskettes, and between programs. So, you wouldn't assign a drawer icon 
to the Trashcan, any more than you should assign a program icon to a 
directory. The program still runs, but using "other" icons can cause 
some confusion later on. 

For this reason, this section uses certain icon descriptions in certain 
contexts. For example, the book consistently calls the icon for a disk- 
ette a disk icon, etc. 

As you've seen in Chapter 7, the following icon types exist 

Name Identifier Object Number 

Diskette icon WBDISK standard diskette 1 

Drawer icon WBDRAWER directory 2 

Tool icon WBTOOL executable program 3 

Project icon WBPROJECT program data file 4 

Trashcan icon WBGARBAGE Trashcan 5 



Kickstarticon WBKICK 



You can get additional information on the icon types from the Work- 
bench. Check the following sources: 

Disk icon information corresponds to drawer icons. The drawer icon 
stores the pictures of all icons and data which can be opened by double- 
clicking. 

Projects (files) are of the same general design as the tools (programs) 
used to create them. Double-clicking a project icon opens the tools used 
to create that file, then the project itself. 

The Trashcan is really just another form of drawer. The main difference 
is that you can't move it from one directory to another, nor can you 
move it to the Workbench. 
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8 . 2 Icon design 



Now for the structure, so you can start thinking about designing your 
own icons. Icon data goes into a directory. Every file that has an icon 
has an extra file with the same name and a file extension of .info. 
This info file contains the information that goes into the Workbench. 



8.2.1 



DiskObject structure 



Every icon file begins with a DiskObject structure, which contains 
all sorts of information (see the table below): 



Identifier 



Parameter 



Bytes 



magic number 


2 


version number 


2 


click structure 


4 


left click range 


2 


top click range 


2 


width of click range 


2 


height of click range 


2 


invert flag 


2 


$0003 


2 


$0001 


2 


pointer 1 picture data 


4 


pointer2 picture data 


4 


"not used?" 


4 


"not useable!" 


4 


"not useable!" 


4 


"for own use!" 


2 


"your Pointer!" 


4 


icon type 


1 


fillbyte 


1 


text structure 


4 


text structure 


4 


current X-position 


4 


current Y-position 


4 


window structure 


4 


program window 


4 


reserved memory 


4 



do_Magic 

do_Version 

do_Gadget 

gg_LeftEdge 

gg_TopEdge 

gg_Width 

gg_Height 

gg_Flags 

gg_Act i vat ion 

gg_Type 

gg_GadgetRende r 

gg_SelectRender 

gg_IntuiText 

gg_MutualExclude 

gg_SpecialInfo 

gg_GadgetID 

gg_UserData 

do_Type 

nothing 

do_DefaultTool 

do_ToolTypes 

do_CurrentX 

do_CurrentY 

do_DrawerData 

do_ToolWindow 

do StackSize 



For starters, the magic number is equal to $E310. This tells the system 
that this is where an icon is read. Next follows the version number, 
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which at the time of mis writing is always $0001. The above table in- 
dicates how many bytes each value occupies. 

Four unused bytes follow the structure. These are normally reserved for 
a gadget click structure. Now things get more complicated: The symbol 
itself is actually divided into two separate areas— the graphic range and 
the click range. The click range helps determine the range in which you 
can click on the icon. The X- and Y-offsets of the click position follow, 
setting the upper left corner of the click range. Next comes the width 
and height of that range. It's important to remember that text is printed 
beneath the click range (i.e., under the icon). Be sure that the click 
range is high enough that the text can be counted as part of the graphic. 

r . Now comes the gadget structure. The next value changes the picture 

UaagetS when you activate it You have three options at your disposal: 

1) The entire rectangular area in which the icon is displayed inverts. 
Just place a 4 in the Flags register. This is the simplest (but 
not the most attractive) method. 

2) Only the drawn-in area inverts. This looks and works somewhat 
better than 1. This mode requires a 5 in the Flags register. 

3) Instead of an inverse version of the icon, another icon appears al- 
together. Place a 6 in the Flags register. 

Next the value constants $0003 and $0001 follow in the DiskOb ject 
structure. The first is the activation type, and the second marks a Book 
gadget. The pointers to icon graphic data follow. If you're switching 
between two graphics, the second pointer must be initialized. 

The next 18 bytes are required by the system for normal gadgets. Its 
actual purpose appears to make no sense. It works best when you fill 
this area with zeros. These bytes are important to the next parameter: It 
distinguishes which icon type is available to the user. You insert the 
numbers which indicate the abovementioned table. Since this should be 
given in one byte, and the processor can only address even addresses, 
these are the same as fillbytes. 

In order to select the type, the pointer to the Default Tool structure 
1 OOl types then the pointer to the ToolTypes structure must be set (more on 
these pointers later). 

The system stores the positioning in the DiskOb ject structure as the 
current X- and Y-coordinates. However, you also have the option of 
Workbench coordinates of $80000000, $80000000. These values are 
called N0_IC0N_P0SITI0N. As long as a user-created icon stays un- 
changed, it is found at the same position. A pointer to the window data 
follows if necessary, and a pointer to the ToolWindow structure. 

To conclude, the stack depth tells the Workbench how much memory to 
allocate for this program or this data. The value of a data file has higher 
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priority than a main program. This way you could reserve considerably 
more memory for the data records of a rile. 



8.2.2 Drawer structure 



Now that you have the information about the average DiskOb ject 
structure, you can continue on with the individual types. 

First comes the Drawer structure, which is almost equal to a diskette. 
The big difference is that the directory and the Trashcan use this struc- 
ture. It contains all the data needed for opening a new directory window. 
The table reads as follows: 

Identifier Parameter Bytes 

wi_LeftEdge left comer 2 

wi_TopEdge top edge 2 

wi_Width width 2 

wi_Height height 2 

wi_DetailPen drawing color 1 1 

wi_BlockPen drawing color 2 1 

wi_IDCMPFlags gadget flags 4 

wi_Flags window flags 4 

wi_FirstGadget gadget structure 4 

wi_CheckMark checkmark 4 

wi_Title tide text 4 

wi Screen screen pointer 4 

wi_BitMap window bitmap 4 

wi_MinWidth minimum width 2 

wi_MinHe±ght minimum height 2 

wi_MaxWidth maximum width 2 

wi MaxHeight maximum height 2 

$0001 2 

current X-position 2 

current Y-position 2 



wi_Type 

actx-pos 

acty-pos 



These are handled as an independent window structure, which extends 
the coordinates for the current position. This may need some explana- 
tion: 

The upper left corner coordinates and the window size appear. When the 
user moves and closes the window, the diskette doesn't leave die sys- 
tem, so that the directory window isn't opened at the position given by 
the current coordinates. 

The parameters then follow for color control. The values set the colors 
for the lines and blocks used in a window. Normally $FF stands for -1, 
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which takes the color from the screens in use. This makes color control 
much simpler. 

The next byte contains a pointer and flag used by the system internals. 
Handling First comes the IDCMP flag, which sets the reaction to any changes to 

window a window. The window flag determines the setup of the directory win- 

changes dow. Then five pointers to structures or memory ranges follow, whose 

changes require knowledge of die operating system 

This way all windows set up in any size within the minimum and max- 
imum limits set by MinHeight, MaxWidth and MaxHeight. 



8.2.3 



Image structure 



Every icon needs an Image structure. They contain the graphic data, 
and are set into the respective file twice when necessary. 



Bytes 



Identifier 


Parameter 


im_LeftEdge 


left corner 


im_TopEdge 


top edge 


im Width 


width 


im_Height 


height 


im_Depth 


depth 


im_ImageData 


bitplane pointer 


im PlanePick 


graphic data 


im PlaneOnOff 


use 


im_Next Image 


next graphic 



2 
2 
2 
2 
2 
4 
1 
1 
4 

After information about the sizes and positions of several bitmaps, the 
image setup contains the graphic itself. The number of bitmaps depend 
upon the screen's depth. The Workbench has a normal depth of two 
bitmaps on which the icon is also based. 

The image parameters repeat after the icon position is given to the 
DiskOb ject structure. The position is just an offset of this para- 
meter. No values are left out concerning the width, height and number 
of bitplanes, just as on the other bitplanes. 

The next four bytes are a pointer to the current graphic data. This 
pointer can change the next couple of parameters somewhat. For 
example, PlanePick depends on the number of bitplanes for its 
graphic display. And PlaneOf f controls an unused icon's activity. 

The last parameter is a pointer to another image structure. This lets 
you combine several objects into one unit 
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The bytes of the individual bitplanes follow the Image structure. First 
comes bitplane 1, then bitplane 2, and so on (if more bitplanes are 
used). The system computes the number of bytes needed for the width 
by rounding off the number of pixels in to the next highest multiple of 
16. The height is calculated by the number of pixels in height, rounded 
off to the next highest multiple of 8. The Amiga needs these bytes to 
create any bitplane. 



8.2.4 DefaultTool text 



Unlike the Image structure, used by every icon, you only need the 
DefaultTool text for diskettes and data files. Diskettes use the text 
to state the diskette hierarchy needed to call system programs. For ex- 
ample, every diskette contains the text SYS : System/DiskCopy, 
used to access the disk copy program (if you remove this text the disk 
cannot be copied in this manner). Data files use this text to indicate the 
program used to create these files. If you remove these texts, the main 
program becomes inaccessible. Here's the parameter setup: 

Identifier Parameter Bytes 

char_num number of characters 4 

This list contains only the truly concrete data (the number of charac- 
ters). Everything else is flexible. Every text must end with a nullbyte, 
so that the end is identifiable. 



8.2.5 ToolTypes text 



The section on the Info function of the Workbench (Section) men- 
tioned that the string gadget under ToolTypes lets you give additional 
information about the main program. For example, you could set up a 
text file for handling as an IFF file. The program requires other infor- 
mation that doesn't appear in this area. You can easily add this infor- 
mation, and use the file in other programs as an interchange format file. 

Identifier Parameter Bytes 

stringjnum text number 4 

Like the DefaultTool text, the size of the ToolTypes gadget is 
extremely difficult to change. Assuming that this string isn't blank, the 
beginning of the text has the number of the string. You must increment 
the number contained here by one, then multiply by four, to compute 
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the string number. You can also find this number when you read the 
file. If you want the data expressed, you must reverse the procedure. 

Next follows a string which begins with the length, and ends with a 
nullbyte. The number of characters is computed by string_num 
mentioned above. 



8.2.6 Icon analyzer 



The following program is a move toward the practical side of icon 
structure. This BASIC program reads the parameters of the filename, 
and displays these parameters and their corresponding values. This pro- 
gram would be easier to use if you could print this list to a printer (you 
may wish to modify it to do so). 

DIM DiskObject$ (26,3) ,DiskObject (26) I 
DIM DrawerData$ (20, 3) , DrawerData (20) I 
DIM Image$(2,9,3),Image(2,9)I 
DIM DefaultTool$ (2,3), DefaultTool (2) I 

I 

* 

DEF FNSize% (Im) -Image (Im, 4) *2*INT ( (Image (Im, 3) +15) /16) I 

I 

WIDTH 751 

I 

INPUT "Filename: ";File$I 

I 

OPEN File$+".info" FOR INPOT AS H 

I 

summary$=INPUT$ (LOF (1) , 1) I 
I 
CLOSE II 
I 

summary$=summary$+STRING$ (40, 0) I 
I 

GOSUB LoadHeaderl 
I 

IF DiskObject(18)=l THENI 
GOSUB LoadDrawerl 
GOSUB Loadlmagel 
GOSUB LoadDefaultToolI 
GOSUB LoadToolTypesI 
END IFI 
I 

IF DiskObject(18)=2 OR DiskObject (18) -5 THENI 
GOSUB LoadDrawerl 
GOSUB Loadlmagel 
GOSUB LoadToolTypesI 
END IFI 
I 

IF DiskObject(18)=3 THENI ( 

GOSUB Loadlmage I 
GOSUB LoadToolTypesI 
END IFI 
I 

IF DiskObjeot(18)=4 THENI 
GOSUB Loadlmagel 
GOSUB LoadDefaultToolI 
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GOSOB LoadToolTypes! 
END IFI 
! 
END! 



LoadHeader:! 

RESTORE DiskObject! 

pc—1 : PRINT! 

PRINT "Disk Object Structure" : PRINTS 

FOR i=l TO 26 ! 

GetBytes DiskOb ject$ (i, 1) , DiskOb ject$ (i, 2) , 
DiskObject$ (i, 3) , DiskObject (i) ! 

NEXT i ! 
RETURN! 
! 
LoadDrawer:! 

RESTORE DrawerData! 

PRINT! 

PRINT "Drawer Data Structure" : PRINT! 

FOR i-1 TO 20! 

GetBytes DrawerData$ (i, 1) ,DrawerData$ (i, 2) , 
DrawerData$ (i, 3) , DrawerData (i) ! 

NEXT i! 
RETURN! 
! 

Loadlmage : ! 
Im=l! 

GOSUB Getlmage! 

IF DiskObject (12)00 THEN Im-2 : GOSUB Getlmage! 
RETURN! 
! 
Getlmage:! 

RESTORE Image! 

PRINT! 

PRINT "Image Structure" : PRINT! 

FOR i=l TO 9! 

GetBytes Image$ (Im, i, 1) , Image$ (Im, i, 2) , 
Image$ (Im, i, 3) , Image (Im, i) ! 
NEXT i! 

bytes=FNSize% (Im) ! 
PRINT! 

PRINT "BitPlanes" : PRINT! 
WIDTH 60! 

FOR j=l TO Image (Im, 5)! 
PRINT! 

PRINT "Bitplane";j! 
FOR i=l TO bytes! 

a$=HEX$ (ASC (MIDS (summary$,po, 1) ) ) ! 
IF LEN(a$)<2 THEN a$-"0"+a$! 
PRINT a$;! 

IF i/2=INT(i/2) THEN PRINT " ";! 
po-po+1! 
NEXT i! 
PRINT! 
NEXT j! 
WIDTH 75 ! 
RETURN! 

! 
LoadDef aultTool : ! 

RESTORE DefaultTool! 
PRINT! 

PRINT "Default Tool" : PRINT! 
GetBytes De£aulTool$ (1,1), DefaultTool$ (1,2), 
DefaultTool$ (1,3) , DefaultTool (1)! 
IF DefaultTool (1)>80 THEN 
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RETURN! 

! 
LoadToolTypes : ! 

RESTORE ToolTypes! 

PRINT! 

PRINT "ToolTypes" : PRINT! 

IF po>LEN(summary$) THEN RETURN! 

GetBytes ToolTypes$ (1,1) ,ToolTypes$ (1,2) , 
ToolTypes$ (1,3), ToolTypes (1) ! 

FOR i-1 TO ToolTypes (1) /4-1! 
RESTORE DefaultTool! 
ToolTypes$(2,3)-""! 

GetBytes ToolTypes$ (2,1) ,ToolTypes$(2,2) , 
ToolTypes$(2,3) , ToolTypes (2)! 
IF ToolTypes (2) >80 THEN 

ToolT G l?^il^ ?lo^ii ) (^f f 

NEXT i ! 
RETURN! 
! 
! 
SUB GetString (length) STATIC! 

SHARED po, summary $11 

IF length-0 THEN EXIT SUB! 

! 

WHILE a<>0! 

a=ASC (MID$ ( summary $,po, 1) ) ! 

a$=HEX$ (a) ! 

IF LEN(a$)<2 THEN a$="0"+a$! 

PRINT a$;" ";! 

po=po+l! 
WEND! 
PRINT! 

PRINT MID$(summary$,ts,po-ts-l)! 
! 
END SUB! 

! 

SUB Decimal (he$,dec) STATIC! 
! 
dec-O! 
FOR i-1 TO IEN(he$) ! 

a=ASC (MID$ (he$, LEN (he$) +l-i, 1) ) -48! 
IF a>9 THEN a-a-7! 
dec-dec+16 A (i-1) *a! 
NEXT i! 
! 
END SUB! 
! 
SUB GetBytes (identified, paramater$,value$, dec) STATIC! 

! 

SHARED po,summary$! 

READ identifier$,paramater$, bytes! 
PRINT identified; TAB (20) ;paramater$;TAB(47) ;! 
a$=MID$ ( summary$,po, bytes) ! 
po=po+bytes! 

IF bytes=l THEN value=ASC(a$)! 
IF bytes=2 THEN value=CVI (a$)! 
IF bytes-4 THEN! 
FOR j-1 TO 4! 

a-ASC(MID$(a$,j,l))! 
h$-HEX$ (a) ! 

IF LEN(h$)<2 THEN h$=h$+"0"! 
value$*=value$+h$! 
NEXT j! 
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value$«HEX$ (value) 5 

END IF5 

PRINT "$";value$;TAB<57);5 

Decimal value$,decf 

PRINT dec 5 
5 
END SUM 

5 

5 

Disk0bject:5 

5 

DATA do Magic, Magic Number, 2f 

DATA do^Version, Version Number, 25 

DATA do Gadget, Click Structure, 45 

DATA gg~teftEdge,Left Click Range, 25 

DATA gg~~TopEdge, Top Click Range, 25 

DATA gg~"Width, Click Range Width, 25 

DATA gg~"Height, Click Range Height, 25 

DATA ggTlags, Invert Flag, 25 

DATA gg~~Activation,$0003,25 

DATA gg~Type,$0001,25 

DATA gg_GadgetRender,Pointerl Picture Data, 45 

DATA gg_SelectRender,Pointer2 Picture Data, 45 

DATA gg IntuiText, "not used??", 45 

DATA gg35utualExclude, "not usable! ",45 

DATA gg_SpecialInf o, "not useable! ",45 

DATA gg Gadget ID, "for own use! ",25 

DATA gg~TJserData, "your Pointer! ",45 

DATA do~Type, Icon type, 15 

DATA noEhlng,Fillbyte,15 

DATA do DefaultTool,Text Structure, 45 

DATA do]TroQlTypes,Text Structure, 45 

DATA do_CurrentX, Current x-Position, 45 

DATA do CurrentY, Current y-Position, 45 

DATA do - DrawerData, Window Structure, 45 

DATA doTtoolWindow, Program Window, 45 

DATA do StackSize, Reserved Memory, 45 

5 ~ 

DrawerData: 5 

5 

DATA wi LeftEdge,Left Edge, 25 

DATA wi*~TopEdge,Top Edge, 25 

DATA wi~Width, Width, 25 

DATA wi"~Height, Height, 25 

DATA wi~DetailPen, Drawing Color 1,15 

DATA wi~BlockPen, Drawing Color 2,15 

DATA wi - IDCMPFlags, Gadget Flags, 45 

DATA wi"~Flags, Window Flags, 45 

DATA wiTirstGadget, Gadget Structure, 45 

DATA wi~CheckMark,CheckMark,45 

DATA wi^Title, Title Text, 45 

DATA wi Screen, Screen Pointer, 45 

DATA wi~BitMap, Window BitMap,45 

DATA wi~MinWidth, Mininimum Width, 25 

DATA wi~MinHeight, Minimum Height, 25 

DATA wi~MaxWidht, Maximum Width, 25 

DATA wi"~MaxHeight, Maximum Height, 25 

DATA wi~Type, $0001,25 

DATA acEx-pos, Current x-Position, 45 

DATA acty-pos, Current y-Position, 45 

1 

Image: 5 

5 

DATA im Lef tEdge, Left Edge, 25 

DATA im~TopEdge,Top Edge, 25 

DATA irrTWidth, Width, 25 

DATA inTHeight, Height, 25 

DATA inTDepth, Depth, 25 



257 



8. Ic o n s Amiga Tricks and Tips 



DATA im ImageData,BitPlane Pointer, 45 

DATA im~ PlanePick, Graphic Data, 15 

DATA inTPlaneOnOf f , Use, lit 

DATA inHNext Image, Next Graphic, 45 

5 

DefaultTool:5 

5 

DATA char num, Number of Characters, 45 

5 

ToolTypes : 5 

5 

DATA string_num, Text Number, 45 

After creating arrays for all structures, the program prompts for the file- 
Program name you want analyzed. Do not enter the .info file extension, since 
description the program provides that extension automatically. Next, all data con- 
tained in the file goes into summary$, so that disk access won't be 
needed later. If the text contains no closing nullbyte (Intuition nor- 
mally does this), nullbytes are added. The main program jumps to the 
DiskOb ject structure reading routine. 

Once the routine closes, the program branches to examine the icon 
type. The available structures are viewed, then the program branches to 
the required routines for looking into each structure. 

The most important subroutine of all, LoadHeader, analyzes the 
DiskOb ject structure. This loads the name and the byte lengths of 
individual parameters from the DATA statements. The DATA lines are 
searched for the GetBytes subroutine, used by almost every subrou- 
tine. 

After GetBytes reads the text and data lengths, the text goes into the 
window. From this text, the program computes the corresponding 
number to be displayed from the bytes. Then a subroutine executes for 
converting the hexadecimal values to decimal notation so the user can 
read the text more easily. 

The LoadDrawer subroutine works in the same way as Load- 
Header. It reads the starting data, but computes the size of the graphic 
array from size%; this lets you incorporate this size with your own 
display routines. Then the routine tests for a possible Double - 
Image. If there is a Double- Image, both Image structures must 
be read. 

The LoadDef aultTool routine reads the text lenght from Get- 
Bytes. This number is multiplied by 16 for most test-icons, when 
this is needed. Next follows the call for the Get St ring routine, 
which reads the corresponding number of the string. 

The same goes for LoadToolTypes, only the number of the text 
must be read. 
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8.3 Making your own icons 



Now that you have some information about the structure of icons, you 
can now learn how to use and create your own icons. It's much easier to 
take an established icon and change it to your own needs. You can use 
the icon editor built into the Workbench diskette for this purpose. 



8.3.1 Two graphics, one icon 



This section tells how you can force the Amiga to display a new gra- 
phic for an icon that has been clicked, instead of simply inverting the 
original icon colors. This is a common method that can be applied to 
any icon type. Later on, you'll learn other extras, such as changing 
drawer icons only. 

The change must set the pointer to the second Image structure, into 
which the new data is inserted. This problem is easier to solve than you 
might think, since the newest edition of the Extras diskette contains a 
program to do this. You must create two icons with a program like the 
icon Editor. The only stipulation is that both icons must be the 
same size. After you enter the name, both icons are combined into one 
unit. 

With this combined icon, you can create wonderful effects. For ex- 
ample, you can make the Trashcan icon "lid" open up when you click 
on the Trashcan icon (some versions of the Workbench already have 
mis feature). You can also make a drawer icon "open" when you click 
on it (again, this already happens on some later Workbench diskettes). 



8.3.2 Text in graphics 



Another option for enhancing normal icons is placing text above the 
icon graphic. 

As you saw from the DiskOb ject structure, the graphic range proper 
is different from the click range. This click range is given in the 
DiskOb ject structure at parameters 4-7. The icon's text appears 
below this click range. If you lower the height of the click range, then 
you can raise the text proportionately. This means that you can move 
the text up, and have it somewhere other than underneath the icon. 
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8.3.3 The icon editor 



These changes require a program that allows you to access and change 
certain bytes, then save these altered bytes to diskette. 

The program below is an extension of the analyzer program listed 
earlier. The entire program is listed below. Load your analyzer program, 
compare the listing with this listing, and add the new lines. Save the 
modified program under the name iconEditor. 

DIM DiskObject$ (26, 3) , DiskObject (26) 1 

DIM DrawerData$ (20,3), DrawerData (20) 1 

DIM Image$ (2, 9, 3), Image (2, 9) ! 

DIM DefaultTool$ (2,3), DefaultTool (2) I 

DIM Address (100, 3) 5 

1 

ON TIMER (.5) GOSUB KeyTestl 

TIMER ON! 

1 

DEF FNSize% (Im) -Image (Im, 4) *2*INT ( (Image (Im, 3) +15) /16) ! 

1 

WIDTH 75 : Adr-1 : AdrNum=l! 

! 

INPOT "Pathname: ";Path$! 

INPUT "Filename: ";File$! 

1 

OPEN Path$+File$+".info" FOR INPUT AS 11 

1 

summary$-INPUT$ (LOF (1) , 1) 5 
1 
CLOSE 11 
1 

summary$=summary$+STRING$ (40, 0) ! 
! 

LstBytes:! 
number-0 : lst-0! 
GOSUB LoadHeader! 
1 

IF DiskOb ject (18) -1 THEN! 

GOSUB LoadDrawer! 

GOSUB Loadlmage! 

GOSUB LoadDefaultTool! 

GOSUB LoadToolTypesl 
END IF! 



1 



IF DiskObject(18)-2 OR DiskObject (18) -5 THEN! 

GOSUB LoadDrawer! 

GOSUB Loadlmage! 

GOSUB LoadToolTypesl 
END IF1 
1 
IF DiskObject (18) -3 THEN! 

GOSUB Loadlmage 1 

GOSUB LoadToolTypesl 
END IF! 
1 
IF DiskObject (18) -4 THEN! 

GOSUB Loadlmage! 

GOSUB LoadDefaultTool! 

GOSUB LoadToolTypesl 
END IF! 
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PRINT! 

PRINT "End of File!"! 

! 
WHILE last-05 

SLEEP H 

IF lst-1 THEN GOTO LstBytes! 
WEND! 
! 
END! 

! 
KeyTest:! 

! _ 

IF INKEY$0" " THEN RETURN! 
WINDOW 2, "Input", (0,0)-(631,53) ,6! 

! 
Start: ! 

PRINT "Address :"Adr, Address (AdrNum, 3)11 

INPUT "Command: ",Command$! 

ComKey$-LEFT$ (Conmand$, 1) ! 

ComTxt$=MID$ (Command$, 2) ! 

ComValue#=VAL(ComTxt$) ! 

IF ComKey$»"#" THEN! 

FOR Testl=l TO number! , _ „ , „ 

IF Address (TestI,l)=ComValue# THEN Adr=ComValue# 

AdrNum=TestI! 

NEXT TestI! 

GOTO Start! 
END IF! 

IF ComKey$""e" THEN last-1! 
IF ComKey$="s" THEN! _ m ^ tm 

IF LEN(ComTxt$)>0 THEN File$=ComTxt$! 

OPEN "-rood. Icons/"+File$+".info" FOR OUTPUT AS 1! 

PRINT#1, summary$! 

CLOSE 1! 

KILL ":mod. Icons/"+File$+". info. info"! 

GOTO Start! 
END IF! 
IF ComKey$-"a" THEN! 

bvtes$-"" : value#=ComValue#! 
FOR KeyI=Address (AdrNum, 2) -1 TO 1 STEP -1! 
a=INT (value#/256 A KeyI) I 
value#«value#-a*256*KeyI! 
bytes$=bytes$+CHR$ (a) ! 
NEXT Keyl! 

bytes$=bytes$+CHR$ <value#) ! 
MID$ (suimiary$, Adr, Address (AdrNum, 2) ) =bytes$! 
Address (AdrNum, 3) =ComValue#! 
GOTO Start! 
END IF! 
IF ComKey$- ,, l" THEN lst=l! 

! 
WINDOW CLOSE 2! 

! 
RETURN! 
! 
! 
LoadHeader: ! 

RESTORE DiskObject! 

po-1 : PRINT! „„ T ™ m 

PRINT "Disk Object Structure" : PRINT! 

FOR I^l TO 26 ! 

GetBytes DiskObject$(I,l) ,DiskObject$(I,2), 

DiskObject$(I,3) , DiskObject (I)! 

NEXT I ! 

RETURN! 
! 
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LoadDrawer: f 

RESTORE DrawerData! 

PRINTfl 

PRINT "DrawerData Structure" : PRINT5 

FOR 1=1 TO 201 

GetBytes DrawerData$ (I, 1) ,DrawerData$ (1,2) , 
DrawerData$ (1,3), DrawerData (1)5 

NEXT If 
RETORNfl 
1 

Loadlmage : f 
Im-lfl 

GOSDB Getlmagefl 

IF DiskObject (12)00 THEN Im-2 : GOSDB Getlmagell 
RETORM * 

1 
Getlmage:! 

RESTORE Image! 

PRINTS 

PRINT "Image Structure" : PRINTI 

FOR 1=1 TO 95 

GetBytes Image$ (Im, I , 1 ) , Image$ (Im, I , 2 ) , 
Image$ (Im, 1, 3) , Image (Im, I) 5 
NEXT 15 

bytes=FNSize% (Im) 5 
PRINT! 

PRINT "BitPlanes" : PRINT! 
WIDTH 605 

FOR j=l TO Image (Im, 5) 5 
PRINT1 

PRINT "Bitplane";j! 
FOR 1=1 TO bytes! 

a$=HEX$ (ASC (MID$ ( summary $, po, 1) ) ) 5 
IF LEN(a$)<2 THEN a$-"0"+a$5 
PRINT a$;f 

IF I/2=INT(I/2) THEN PRINT " ";! 
po=po+l! 
NEXT IB 
PRINT! 
NEXT jl 
WIDTH 75 5 
RETURN! 

1 
LoadDef aultTool : 5 

RESTORE DefaultTool! 
PRINT! 

PRINT "DefaultTool" : PRINTS 
GetBytes DefaulTooI$(l,l) ,DefaultTool$(l,2) , 
Def aultTool$ (1,3), DefaultTool (1) ! 
IF DefaultTool (1)>80 THEN 

RETURN! 

5 
LoadToolTypes : 5 

RESTORE ToolTypes! 
PRINT! 

PRINT "ToolTypes" : PRINT! 
IF po>LEN(summary$) THEN RET0RN1I 
GetBytes ToolTypesS (1, 1) , ToolTypes $ (1,2) , 
ToolTypes$ (1,3), ToolTypes (1)5 
FOR 1=1 TO ToolTypes (l)/4-l 5 
RESTORE DefaultTool 5 
ToolTypes$(2,3)=""5 

GetBytes ToolTypes$ (2,1), ToolTypes$ (2,2), 
ToolTypes$ (2,3) , ToolTypes (2) 5 
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IF ToolTypes(2)>80 THEN 

NEXT I 5 
RETUROT 

1 

SOB GetString (length) STATICU 

SHARED po, summary$1[ 

f 

ts-po : a-15 
IF length-0 THEN EXIT SUB5 

H 

WHILE aOOfl A „ %%rr 

a=ASC (MID$ (summary$,po, 1) ) f 

a$-HEX$ (a) 1 

IF LEN(a$)<2 THEN a$-"0"+a$f 

PRINT a$;" "if 

D=po+m 



PRINTS 

PRINT MID$(summary$,ts,po-ts-l)H 

5 
END S0B5 
H 

u 

SOB Decimal (he$,dec) STATIC1 

1 

FOR 1=1 TO LEN(he$) 5 ^ „...„„ 

a-ASC(MID$ (he$,LEN(he$) +1-1,1) )-48fl 

IF a>9 THEN a=a-7fl 

dec=dec+16 A (1-1) *aH 
NEXT IH 

END SUBfl 

SOB GetBytes (identifiers, paramater$,value$, dec) STATICH 

SHARED po,summary$, Address () ,numberfl 

READ identifiers, paramater$,bytes1I 
PRINT identifiers; TAB (20) ;paramater$;TAB(47) ;f 
a$=MID$ (summaryS, po, bytes) 1 
IF bytes=l THEN value=ASC(a$)5 
IF bytes=2 THEN value=CVI (a$) f 
IF bytes=4 THENH 
valueS"*""!! 
FOR j-1 TO 4H 

a-ASC(MID$(a$,j,l))5 
h$«=HEX$ (a) H 

IF LEN(h$)<2 THEN h$-h$+ M M H 
value$=value$+h$ H 
NEXT jH 
ELSEH 

value$=HEX$ (value) 1 
END IFfl 

PRINT "$";value$;TAB(57);1l 
Decimal value$,dec5 
PRINT dec;TAB(71);pofl 
number=number+l I 
Address (number, l)=po : Address (number, 2) =bytes : 

Address (number, 31 =dec1I 
po=po+bytesH 

n 

END SUB5 
1 
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DiskCbject:5 

5 

DATA do Magic, Magic Number, 25 

DATA do_Version, Version Number, 25 

DATA do Gadget, Click Structure, 45 

S£E A 90«»ftEdge,Left Click Range, 25 

DATA ggT:opEdge,Top Click RangeT25 

DATA gg^idth. Click Range Width, 25 

S?E A gglgeight, Click Range Height, 25 

DATA ggT-laga, Invert Flag, 25 

DATA ggTVctivation, $0003,25 

DATA ggType,$0001,25 

DATA gg_GadgetRender,Pointerl Picture Data, 45 

5 A E A 99 SelectRender,Pointer2 Picture Data, 45 

DATA gg-IntuiText, "not used??", 45 

DATA ggjfoitualExclude, "not useable! ",45 

DATA gg_SpecialInfo, "not useable! ",45 

DATA gg Gadget ID, "for own use! ",25 

DATA gg~0serData, "your Pointer! ",45 

DATA do~Type, Icon type, 15 

DATA noEhlng,Fillbyte,15 

DATA do_DefaultTool,Text Structure, 45 

DATA do3ToolTypes,Text Structure, 45 

DATA do_CurrentX, Current x-Position, 45 

DATA do CurrentY, Current y-Position, 45 

DATA do~DrawerData, Window Structure, 45 

DATA doTtoolWindow, Program Window, 45 

DATA do_StackSize, Reserved Memory, 45 

DrawerData:5 

5 

DATA wi LeftEdge,Left Edge, 25 

DATA wi~TopEdge,Top Edge, 25 

DATA wi~Width, Width, 25 

DATA wi~Height , Height , 2 5 

DATA wi"~DetailPen, Drawing Color 1,15 

DATA wi^BlockPen, Drawing Color 2,15 

DATA wi IDCMPFlags, Gadget Flags, 45 

DATA wi~Flags, Window Flags, 45 

DATA wi~FirstGadget, Gadget Structure, 45 

DATA wi CheckMark,CheckMark,45 

DATA wi^Title, Title Text, 45 

DATA wi Screen, Screen Pointer, 45 

DATA wi"~BitMap, Window BitMap,45 

DATA wi~MinWidth,Mininimum Width, 25 

DATA wi~MinHeight, Minimum Height, 25 

DATA wi~MaxWidht, Maximum Width, 25 

DATA wi~MaxHeight, Maximum Height, 25 

DATA wi3ype,$0001,25 

DATA acEx-pos, Current x-Position, 45 

DATA acty-pos, Current y-Position, 45 

5 

Image: 5 

5 

DATA im LeftEdge,Left Edge, 25 

DATA im~TopEdge,Top Edge, 25 

DATA inTWidth, Width, 25 

DATA inTHeight, Height, 25 

DATA inTDepth, Depth, 25 

DATA im ImageData,BitPlane Pointer, 45 

DATA imTlanePick, Graphic Data, 15 

DATA inTPlaneOnOf f , Use, 15 

DATA im"~NextImage,Next Graphic, 45 

5 

DefaultTool:5 

5 

DATA char num, Number of Characters, 45 

5 

ToolTypes:5 

5 
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Program 
description 



# nun 



a nun 



3 name 



DATA string_num,Text Number, 4? 

Most of this program matches the icon analyzer program in structure 
and program flow. One change is the byte number following all change- 
able parameters. In addition, pressing <SPACE> calls a window. This 
window lets you enter the following simple file management com- 
mands: 

Enter the address for num at which you want the change made. From 
there you can select the position where you want your bytes added. 

The current address is assigned the value placed in num. The routine 
converts the given number to byte f ormaL 

This saves the info file bytes in the directory :mod.lcons. You 
should make this directory before running this program (use makedir 
mod . Icons in the CLI to create this directory). If you give no name 
after s, the name used for the previous loading procedure is assigned to 



1 

e 



Once you've made changes, this lets you list the program structure out. 

This command ends the program The e command must be given, since 
the program's display structure is within a delay loop. 

When you want to exit the editor, press the <RETURN> key at any 
prompt without entering any other text. 

The authors realize that this editor isn't the most comfortable one in the 
world to work with. However, a more user-friendly editor would take up 
much more memory, and the current version of the editor performs all 
the necessary functions. 



8.3.4 



Color changes 



Any window can open in its own color, including the workbench 
window. The default Workbench colors are effective enough, but they 
aren't very interesting. To change these colors, you must change the 
data and colors before opening the window. Changing window structure 
is very similar to changing drawer structure. 

You can see the Drawing color 1/2 using the icon editor in 
Section 8.3.3. The Drawing color contains the value $FF or 255. 
A few details about screen color changes were mentioned earlier. Using 
the icon editor write a value between and three in the corresponding 
byte to change the color. 
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The best thing to do is experiment with these options. Don't be sur- 
prised, though, when you try to open one of the stored info files, the 
info screen opens for a moment then disappears again. This happens 
because no subdirectory exists for the window, which is apparently very 
important to a drawer icon. Enter the CLI and create a directory for 
every info file using the makedir command. 

From there, you can then see all the new window colors. Some color 
combinations don't work very well. Others cancel out text. Work 
toward what you can see best in terms of contrast and readability. 
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Error trapping 



Controlled error handling is an absolute necessity for large programs. 
These can save the user a lot of trouble from incorrect input. Very few 
programs are equipped with foolproof error checking. All the user has to 
do is type in input that the computer can't accept, and the system may 
crash. Error trapping is another facet of user-friendliness. 

However, you must first know how errors are handled in the first place, 
and where in the program the error occurs. You can't find the latter on 
your own, but there are a few rules you can follow to help your pro- 
grams run error-free. 

This chapter shows you how you can foolproof your programs from 
errors. You'll read about routines that check for files on diskette without 
stopping from an error message, programs that generate requesters, and 
even a demonstration of easy menu creation. 
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9.1 Errors — and why 



Even when programs shouldn't have errors, they may have some— 
whether you wrote them, or they were written commercially These 
errors can be divided into two generic groups. The first group consists 
of errors that the programmer may have overlooked. These are the lines 
that result from leaving out a parenthesis or formula (syntax). This 
error type happens often when you or the user try modifying a program. 
The only way to avoid syntax (or any) errors is to completely test a 
program But how? J 

First, write down a list of program sections that must be used. Note the 
program lines that operate under certain conditions. A number of errors 
may only occur under certain conditions. When you test the program 
you have to test every section by calling them. 

There are more error sources to annoy die user and programmer alike A 
frequently encountered error is the Subscript Out of Range 
error. This happens when you try to access an array element past the 
default 10 elements of an array. Make a list of the arrays used, and make 
sure that you define them all properly. To make control easier, use one 
particular section for dimensioning arrays at the beginning of the 
program 

Math errors are another source of problems. Almost any calculation can 
lead to an error. Any slip of the hand can lead to an Overflow error, 
or a Division by Zero. Make sure your computations test for in- 
correct input, particularly in division, exponentiation, etc. 



9.1.1 Disk access errors 



Imagine this: You write the perfect data and address base. The user types 
in the name of the file that uses this program, and all he gets is a File 
Not Found error. Unlike the Workbench, which displays a requester 
when something is wrong, AmigaBASIC returns an error. 

A file under that name may exist, but you may have accidentally created 
it from another program, and it may have a different format from the 
program currendy in use. The best that can happen is that the data can 
confuse the program. Most of the time the result is a Type Mis- 
match or similar error. 
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A much more aggravating error occurs when the file is on the right 
diskette, but the file you want is in another directory altogether. The 
result is a File Not Found error. 



9.1.2 User input errors 



Any database program requires the entry of values. But even values have 
their limitations! Numbers should be within a certain range, and/or have 
a certain number of decimal places; texts can only be a certain length or 
can only contain certain characters. All these conditions aren't con- 
sidered by the normal INPUT statement It accepts numeric input as 
well as text, and the wrong kind of input results in a Redo from 
Start error message, screen scrolling and repeated input 

The option of selecting only certain characters is unsupported. If the 
user goes past the assigned text length, the program cuts off these extra 
characters. This means that important information can be lost 



9.1.3 Menu errors 



This is where errors get harder to pinpoint User menus consist of entire 
subroutines and functions. The user selects an item and the program re- 
acts. But menus are not infallible. 

Under certain circumstances, one or more menu items may be unusable. 
Selecting a menu item that shouldn't be used could lead to no reaction 
at all, or even a system failure. 

One harmless example could be a Save item on the fictional database 
program mentioned above. Selecting this item when no data has been 
entered doesn't crash the computer, but the data diskette now has a blank 
record that could be very difficult to remove later. 
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9.2 Trapping errors 



Checking 
for errors 



Requester 



It's possible to trap errors, or even bypass them. The keyword in 
solving these problems mentioned above is prevention. 

As already mentioned, you can prevent simple error messages like 
Division by Zero by checking for these errors. This method is 
much more user-friendly than the program just stopping with an error 
Program breaks give the user a new problem— he has to become a 
programmer and find the bug himself. Either you can set the program 
up to prompt for the correct data, or at least have the program jump to 
the beginning. These are crude, but either route is better than a break. 

There are other ways to handle errors in BASIC. ON ERROR GOTO 
sends the system to a given line when an error occurs. The programmer 
assigns the line or routine. From there, the program can mention the 
nature of the error, or return to the area just after the incorrect line. 

The system requester is a much friendlier solution to error handling. For 
example: If the wrong diskette is in the disk drive, a window appears in 
die upper left hand corner. This window displays the text, "Please 
insert volume in any drive". From there, you can select the 
Cancel gadget to exit, or the Retry gadget to go on. The requester is 
the last chance you get to correct an error, without getting an error 
message. However, the requester is the only way to get around certain 
problems, such as exchanging diskettes when you only have one disk 
drive. 

You may not get a chance to test your program under every circum- 
stance, so you may have to create your own errors using subroutines. 
These errors can test your error checking thoroughly. 



9.2.1 



User-friendly programming 



Now that you've read through the theory, you can go on to practical 
programming. When an error occurs, nothing angers a user more than a 
program break. This is because most users aren't professional program- 
mers, and even if they do program, they may not understand most of the 
material within a program written by someone else. You as a program- 
mer must make tilings as simple for the user as possible. Programs 
should offer the user a chance to correct errors with some flexibility. 
You've already seen an example of user-friendly programming in the 
system requester mentioned above; it gave you an opportunity to insert 
the correct diskette. 
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Bypassing 
errors 



You can write this kind of flexible programming! You're probably 
thinking of one way — open a window, write the text, and read for the 
mouse click. That's one possible solution, but it's also too compli- 
cated! Instead, you can let the operating system draw a requester for you. 
You'll see how this is done, and how you can insert your own informa- 
tion, below. 

Before you can program a requester, you must clearly know what you 
want the requester to do. It can serve the same occasions as those served 
by the Workbench requesters. 

For example, you can set up a requester for a file that the system can't 
find on diskette. BASIC usually returns an error message. You must 
first suppress the error message, then call the requester that matches a 
File not Found error message. 

Since the File not Found error message usually accompanies 
opening a file that is neither on the diskette nor in the correct directory, 
you can't just read status during OPEN. A sequential file gives you 
another way out, though. You can open the file using the APPEND 
option. Either the file exists as defined by a pointer, which allows 
adding to the file, or the file doesn't exist, and a new file opens. The 
LOF function lets you see if the file existed previously. A file exists if 
the file is at least one character in length; otherwise, the length is equal 
to zero. If the length is equal to zero, the program deletes the newly 
opened file. 

Here is a program that demonstrates the above procedures: 

• Check for existing filefl 

• on diskette^ 

'I 

• by Wgb, August '87U 

•I 

I 

FileName$="AmigaBasic2" f 
Mainprogram: f 

Again: 1 

H 

PRINT "Searching for the file: ";H 

WRITE FileName$5 

1 

CALL CheckFile (FileName$) H 

IF exist=-l THEN5 

PRINT "Okay, the file exists! "11 

ELSEU 

PRINT "File not found. . .sorry. '% 
END IFfl 

EMM 

5 



SOB CheckFile (File$) STATICS 
1 
SHARED exists 
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! 

OPEN File$ FOR APPEND AS 2551 

exist- (LOF (255) >1)! 
CLOSE 25511 
I 

IF exlst-0 THEN KILL File$f 
! 
END SUB1I 

You can use a more elegant (and more complex) method to determine 
whether a file exists on diskette (see the program below). This other 
way uses a subroutine that returns a corresponding value: 1 (file exists) 
or (file not found). 

The Look function must be defined within a program as a function. 
Then the memory location of the name is given, ending with a null- 
byte. Next, the routine supplies information about how the file should 
be accessed. Since the Amiga is a multitasking computer, you can 
choose one access by itself (Access Mode - Exclusive Write (-1)) or 
read access by multiple tasks (Access Mode - Shared Access (-2)). The 
first option provides write and read access for a single user. The second 
option allows more than one program and/or user to read one file at the 
same time. 

The new routine uses Shared Access, a returned value of -2. 

The value returned by the function is equal to zero if no file exists on 
diskette. The value must go into memory, since it can allow another try 
at file access. 

The access secured through this routine should cancel the list of para- 
meters, since this list takes memory and time. You can use the Un- 
Lock function for this cancellation. The routine returns the value 
received by Lock. 

' Test for existing file on diskette! 

' using dos. library! 

'! 

' © by Wgb, August '87! 

•I 

! 

DECLARE FUNCTION Locks LIBRARY! 

! 

LIBRARY "dos. library"! 

! 

FileName$-"AmigaBasic2"! 

! 

MainPrcgram: ! 

! 

Again:! 

! 

PRINT "Searching for the file: ";! 

WRITE FileName$! 

! 

CALL CheckFile (FileName$)! 

IF exist— 1 THEN! 

PRINT "File exists!"! 

PRINT "File Header begins at Block , *|blk&;"on this 
Disk."! 
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ELSE! 
PRINT "File not found!"! 

END IF! 

I 
LIBRARY CLOSE ! 
END! 

! 

. 5 

! 

SOB CheckFile (File$) STATIC! 

SHARED exist,blk&! 

File$-File$4CHR$ (0) 5 
accessRead%— 25 

DosLockS-LockS (SADD (File$) ,acces3Read%) ! 
IF DosLock&-0 THEN! 
exist-0! 



exist— 11 

blk&=PEEKL (DosLock&*4+4> ! 

END IF! 
! 

CALL Unlock (DosLockS) 5 
5 
END SUB! 

Now that you have some understanding of hew to check for a file on 
diskette or in a subdirectory, you should learn how you can create a re- 
quester in BASIC. 

It's possible to write a requester completely in BASIC, as described 
above. However, it's much easier to use the requester routine provided 
by the Amiga's operating system. This operating system module is 
called the AutoRequest function. This function takes your text and 
gadget requests, and does the rest. The program below contains a sub- 
routine that does all this for you. This subroutine returns a value which 
tells the main program where to branch from that point 

' Test for a file on 1 
' diskette! 

•1 

' © by Wgb, June' 875 

'! 

! 

DECLARE FUNCTION AllocRemeniber& LIBRARY! 

DECLARE FUNCTION AutoRequest* LIBRARY! 

DECLARE FUNCTION Locks LIBRARY! 

! 

LIBRARY "dfl: intuition. library"! 

LIBRARY "dfl:dos. library"! 

! 

FileName$-"df 1 : 9 .Errors/AmigaBasic2"! 

! 
Mainprogram: ! 

! 

Again:! 
! 
PRINT "File: ";! 

WRITE FileName$! 

! 

CheckFile FileName$! 

IF exist— 1 THEN! 

PRINT "File exists!"! 

275 



9. Error trapping AMiga Tricks and Tips 



PRINT "File Header begins at Block";blk&;"on this 
Disk."! 
ELSE! 
Request FileNamaSS 
IF resS-1 THEN GOTO Again! 
PRINT "File not found !"! 
END IF! 
! 
LIBRARY CLOSE ! 
END! 

! 

. 5 

! 

SUB CheokFile (File$) STATICf 

! 

SHARED exist, blk&! 
! 

TestFile$-File$+CHR$ (0) ! 

acoessRead%— 25 

DosLockS-LockS (SADD (TestFile$) , accessRead%) ! 

IF DosLock&-0 THEN! 
exist ™05 

ELSE! 

exist =-1! 

blk&=PEEKL (DoaLock&*4+4) ! 

END IF! 
! 

CALL UnLock(DosLockS)! 
! 

END SUB! 
! 



SUB Request (FileName$) STATIC! 
! 

SHARED add&,st$,resS,offs%! 
1 

Quest$(0)="Please insert volume containing"! 

Quest$(l)-"File "+FileName$! 

Quest$(2)-"Can't find the file!"! 

yes$="Retry"! 

no$="Cancel"! 

bt%»2! 

wid%-8*38! 

hi%-8*9! 

offs%-0! 
! 

optS-2 A 0+2 A 16! 

reqfr=AllocRemember& (0, 400, opts ) ! 

IF req&-0 THEN ERROR 7! 
! 

add&»req&! 
! 

tlS-addS! 

FOR loop2=0 TO bt%-l! 
st$=Quest$ (loop2) ! 
MakeHeader adds , st$ , 1 , 5 , of f s%+3! 
offs%=offs%+8! 

NEXT loop2! 
! 

st$=Quest$ (bt%) ! 

MakeHeader adds,st$,0,5,offs%+3! 

! 

st$=yes$! 

t2&=addS! 

MakeHeader adds,st$,0,5,3! 

! 

st$-no$! 

t3S=add&! 
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MakeHeader adds, st$, 0,5, 3f 

resS-AutoHequestS(WINDCW(7),tl&,t26,t3S,0,0,wid%,hi%)5 

CALL FreeRemeniber (0,-1)5 
I 
END SDB5 

1 

SOB MakeHeader (ptrS,Text$,md%,le%,te%) STATIC^ 

5 
SHARED adds 5 
Text$=Text$+CHR$ (0) 5 



5 

POKE ptrS,lfl 

POKE ptr&+l,05 

POKE ptrS+2,25 

POKEW ptr&+4,le%fl 

POKEW ptr&+6,te%5 

POKEL ptr&+8,05 

POKEL ptr&+12,SADD(Text$)l 

IF md%-0 THENfl 
POKEL ptr&+16, 02 

ELSE1 

POKEL ptrS+16,ptr&+20fl 

END IFH 
I 

add&=ptrS+205 
END SUBI 



First the routine must "know" which text you want displayed. Three 
Program texts lie in the routine; the main text, and additional texts from which it 

description can select. The last two texts are displayed in one line, and are sur- 
rounded by borders. These make up the gadgets which you click. After 
establishing the text, you must set the window size. If the requester 
window is too small, the text simply spills over or gets overwritten, 
making it hard to read. 

The text must be placed in memory in a certain structure, with a mem- 
ory range reserved for this structure. The operating system function 
AllocRemember sets this range aside. It allows selection of a mem- 
ory range based on preset criteria. 



PUBLIC 


2° 


CHIP 


21 


FAST 


22 


CLEAR 


2 16 



Any type of memory can be used, just as long as it is cleared before- 
hand. If no memory is available, then an error message appears. 

Assume for the moment that enough memory is available. Then the 
text goes into the reserved area. This text must still appear in a certain 
format. BASIC programmers can use POKES for this formatting. This 
command is useful for the use and design of your own programs only — 
AmigaBASIC normally doesn't require any POKEing. 

The first loop brings the information text into the reserved memory 
range. Then the two gadgets transfer to RAM. If everything runs cor- 
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rectly, then the AutoRequest function can begin its task. It first 
takes the addresses of the first text, die two gadget texts and the reques- 
ter's size. These return a value and then a result of 1, if the first gadget 
is clicked by the user. 

This value can then be followed by branches to the main program. 
Either the system repeats the loading procedure, because of an incorrect 
diskette or non-existent file, or the loading procedure stops and returns 
the user to the main program. 



9.2.2 Trapping user input errors 

Now you have a requester that checks for existing files. An even more 
important aspect of error trapping is keeping the user's input correct. 
User entry has its own problems and errors. 

The simplest and best solution is to write an input routine that reads 
the input, retains the desired characters and ignores the rest, without re- 
turning an error message. The routine must ascertain which characters 
are "legal" and which ones aren't This can be accomplished by calling a 
string which contains valid characters, and a routine that lists the valid 
number of characters. The subroutine handles the rest of the characters. 
When the user presses the <RETURN> key, the subroutine ends. 

Most input goes to a specific position of the window for display. 
Coordinates set this position, saving the trouble of using the LOCATE 
command. You can display any text through the input command. 

' Input Routine f 

• © by Wgb May '875 
•1 

Mainprogram: "fl 

DEFINT a-zfl 

KAlpha$="abcdef ghi jklmnopqrstuvwxyz " f 

GAlpha$="ABCDEFGHI JKLMNOPQRSTUVWXYZ " f 

NAlpha$="01234567890+-*/.,="fl 

ZAlpha$=" ,.?!-/;:• "I 

Possl$-KAlpha$+GAlpha$+ZAlpha$H 

H 

Getlnput "Last name:", LName$,Possl$, 10, 10,20,05 

Getlnput "First name:", CName$,Possl$, 10, 12,20,0$ 

WRITE LName$,CName$l 

END5 
1 
1 

SOBRoutines:5 
1 

SOB Getlnput (Text$,In$,Possl$,x,y, Letter, Pointer) 
STATICH 

Xold=POS(0)l 

Yold-=CSRLINfl 
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Program 
description 



Length=05 
LOCATE y,xl 
PRINT Text$;5 
x-x+LEN(Text$)5 

Readout: % 

Cursor x+Length,yf 
Getlnkey i$H 

IF i$-=CHR$ (13) THEN GOTO Done! 
IF i$=CHR$<8) THEN GOTO RubOut! 
IF Letter-Length THEN GOTO ReadOut! 
! 
f =INSTR (Possl$ , i$ ) ! 
IF f=0 THEN! 
BEEPSF 

GOTO ReadOut! 
END IF! 
! 
PRINT i$;! 

In$=In$+±$ : Length=Length+15 
GOTO Readout! 
! 

RubOut:! 
I 

IF Length=0 THEN GOTO ReadOut! 
Length=Length-l! 
PRINT " ";! 
In$=LEFT$ (In$, Length) 1 
GOTO ReadOut! 
! 

Done: 5 
I 

PRINT " ";! 
LOCATE Yold,Xold! 
IF Pointer AND 1-1 THEN! 
l~LEN(In$)! 

In$=In$+SPACE$ (Letter-1) ! 
END IF! 

END SUB! 

SUB Cursor (x,y) STATIC! 
! 

COLOR 35 
LOCATE y,x! 
PRINT "_"'"5 
LOCATE y,x! 
COLOR If 
! 
END SUM 
5 

SOB Getlnkey (Key$) STATIC! 
! 

KeyRead:! 

Key$»INKEY$! 
IF Key$-"" THEN GOTO KeyRead! 
! 
END SOB! 

Before calling this new input routine, you should define a string or set 
of strings containing groups of valid characters. For example, you can 
set up a string of lowercase characters, one of uppercase characters, 
another one made of numbers, and a string of other characters. These 
strings let you easily set which characters you want accepted. The new 
input command accepts these strings as a constant. 
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Cursor 
placement 



Adaptation 



Get Input itself gives the text contained in the variable as a string 
with all valid characters, its position, the number of characters entered, 
and a pointer. This pointer determines whether the input text should be 
filled with spaces where invalid characters appear in the text This poin- 
ter sets to 1 if this is the case. 

Unfortunately, editing numbers is impossible. You can do this, how- 
ever, with the following combination: 

Getlnput "Number: ",Number$,NumChar$,10,10,8 
Number=VAL(Number$) 

When NumChar$ only contains numbers, you can make sure that no 
nulls stand in Number if you don't want to. At any rate, you won't get 
a Redo from Start error from numeric input. 

The subroutine stores the current cursor position at the beginning. 
Since this position stays Ihe same when the program exits the routine, 
then it doesn't affect output The text appears in the specified position, 
and the computer sets the starting position for input The length of the 
text entered is sdll set to zero. 

The read loop displays the current input position of the cursor, and the 
routine waits for a keypress. Any character received goes through the 
control functions. If you press the <BACKSPACE> key, the character 
most recently entered deletes whenever possible. Pressing the 
<RETURN> key branches immediately to the end of the routine. 

Next the routine checks to see if the next character is "legal.'' The rou- 
tine examines the string constants you set for this character. If the 
character is valid, it is added to the input string; if not the Amiga 
beeps and returns to the beginning of the read loop. The routine then 
waits for the next character. 

You can naturally adapt this routine to your own needs. For example, 
this program doesn't provide for letting the user move the cursor around 
within the text. It allows simple character deletion, but user input 
would be a lot simpler if you could insert or delete characters in the 
middle of the input line. 

Another feature missing from this routine is the acceptance of no input 
at all. This can be practical when one value is used repeatedly, and needs 
litde if any changing. You can add this to the beginning of the subrou- 
tine by predetermining the length of the parameters that must appear on 
the screen. 

Up to now, the only way you could end a prompt or input was by 
pressing the <RETURN> key. You could change the pointer so that 
when, say, the second bit is set input ends only when the entry con- 
tains a minimum of one character. 



280 



Abacus 9.3 Errors and corrections 



9.3 Errors and corrections 



This section deals with corrections. Up until now, this chapter has 
assumed that correction is the last possible option for incorrect input. 
Most of the time no one takes this route, since real-time error checking 
in BASIC simply takes too much time. The self-generated input routine 
showed that examining every character can take up to three seconds to 
see if the character is good, bad or indifferent This can't be helped. 

For example, say you only want one word out of a hundred possible 
words entered. The system checks every single character as it appears in 
the combination. When you end the input, it checks all available words 
against this input, and you can display an error message or branch to 
the input as needed. 

Most of the time, responses occur in which you have no say whether or 
not all values are recognized. Here, checking is only possible as a last 
resort. If the program establishes that a value is invalid, then it can 
simply be corrected. The program doesn't go on immediately after this. 
The user must again switch on correction to see if the value just entered 
is valid or not. 

You can see that this is a fairly complicated subject. The entire matter 
of error-free user input is difficult, and unfortunately you can't hold a 
patent on this kind of routine. Every program has its own features, and 
its own error sources. As a programmer, you must be sympathetic to 
the user, and consider every place in a program where an error can 
happen. This means that testing should occur wherever an error can 
occur— better that than a program break later on. 



9.3.1 Blocking out menu items 



One answer to bypassing errors is to force inaccessible menu items to 
appear in ghost print. Programming with the MENU command leaves all 
menu items open to selection. This makes designing menus fairly sim- 
ple. But what if you want to deactivate menu items so that the entire 
menu becomes inactive? You can save yourself a lot of work using 
MENU number,item,0 to deactivate individual items. This gets to be 
time-consuming when you call this command to create an entire menu 
in ghost print. 

That's where this program comes in. It uses a SUB routine named 
Able, which lets you assign the desired status to multiple menu: 



281 



9. Error trapping Amiga Tricks and Tips 



items. You can deactivate an entire block if you wish, or assign check- 
marks to an active block of menu items. The function is a practical 
replacement for the menu command. 

' PullDownTest5 

• © by Wgb in June '875 

'! 

5 

DEFINT a-z! 

5 

MainProgram: 5 

! 

GOSUB MenuDefinition! 

PRINT" All menus active. "5 

Pause 511 

5 

PRINT "Disk menu inactive."! 

Able 1,0,0,09 

Pause 55 

5 

PRINT "Drawing type set."! 

Able 2,4,0,21 

Pause 55 

! 

PRINT"Single-color drawing only. "! 

Able 3,1,5,05 

Able 3,1,0,15 

Pause 51 

1 

PRINT"GET from Brush menu available only."! 

Able 4,1,4,01 

Able 1,0,0,1! 

Able 3,1,5,15 

Pause 5! 

5 

PRINT"Press a key to end the program."! 

Able 1,0,0,05 

Able 2,0,0,05 

Able 3,0,0,05 

Able 4,0,0,05 

Able 5,1,2,05 

! 

WHILE INKEY$=""5 
SLEEP! 

WEND! 

5 

MENU RESET5 

5 
END! 
5 
5 
MenuDef inition : 5 

! 
RESTORE MenuData! 

5 

READ Number! 

FOR i=l TO Number! 

READ Items, Length! 

FOR j=0 TO Items! 

READ Item$! 

IF j>0 THEN! 

Item$=LEFT$ (Item$+SPACE$ (Length) , Length) 5 
IF i-2 OR i=3 THEN! 
Item$-" "+Item$! 
END IF! 
END IF! 
MENU i,j,l,Item$5 
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NEXT j! 

NEXT i! 

! 
RETURN! 
! 

SUB Able (MenuNr, Item, Number, Types) STATIC! 
! 
FOR i=Item TO Item+Number! 

MENU MenuNr, 1, Types! 
NEXT i! 
! 

END SUB! 
! 

SUB Pause (Seconds) STATIC! 
! 

Elapseds-TIMER+Seconds! 
WHILE TIMER<Elapsed&! 
WEND! 
! 

PRINT! 
! 

END SUB! 
! 

MenuData:! 
! 

DATA 5! 

DATA 7, 15, Disk! 

DATA New, Load, Load as! 

DATA Save, Save as! 

DATA Disk Command, Quit! 

! 

DATA 7, 9, Draw! 

DATA Freehand, Line, Lines! 

DATA Circle, Rectangle, Polygon! 

DATA Fill! 

! 

DATA 6, 11, Color! 

DATA One Color, Multicolor, Palette! 

DATA Shadow, Wipe, Transparent! 

! 

DATA 6, 9, Brush! 

DATA Load, Load as, Save! 

DATA Save as. Clear, Get! 
! 

DATA 4, 11, Extras! 

DATA Workbench, Coordinates! 

DATA Blend Out, End! 
! 
addS-ptr&+20! 

First all variables are defined as integers. You may wonder why this 
Program^ program declares just these few variables. The reason is mat when you 

description define these at the beginning, the speed increases greatly — all math op- 
erations run as integer arithmetic. Besides, no problems crop up during 
the subroutine calls. If whole-number constants appear there, then the 
Type Mismatch error occurs (the subprograms want real number 
variables). Then you must either add integer signs to the constants in 
the command line, or adapt the variable types in the SUB program. 

After variable definition, the main program branches to the SUB pro- 
gram MenuDef inition, which reads the menu texts from the data 
statements at the end of the listing. 
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Now look at the SUB program itself. After the DATA statements gene- 
rate the menu data, the corresponding number goes to the outermost 
loop. This loop reads all the data concerning the number of menu items 
per menu and the length for each text The last value is very important, 
since after defining a menu you can open the corresponding array. It has 
a maximum X-length based upon the longest text You can only 
activate the individual menu items that actually contain characters. 
Every line that contains less than the maximum number of characters 
fills in with blank spaces. You can also activate the spaces at die end of 
every menu item. 

With this, you can make a graphic, move the menu items to the start of 
the current item, and place a REM character in front of the line, filling 
die item$ variable with SPACE $. When you select the menu item, 
make sure you realize that this was done. 

Look at the inner loop of the SUB routine. This takes the abovemen- 
tioned number of menu items from the DATA statements, and defines 
them with the MENU function. Menus 2 and 3 can have checkmarks 
before their items, when two spaces precede the texts of these menus. 
The addition of spaces following the texts changes when the number of 
menu items is greater than null. The menu tide must not be corrected 
in this case. 

Now on the main program itself. It displays the text stating that all 
menus are active. From this the user can determine the branch to a sub- 
routine which waits for a given number of seconds then returns to the 
main program. 

The design of this routine is fairly simple. First the computer calculates 
die time number which must be assigned to the given number of sec- 
onds. Then this waits in a delay loop until the current time is reached. 

The main program displays another text that says that the Disk menu 
is inactive. After this, the most important subroutines execute. The 
parameters state that the first menu's title, as well as the other menu 
titles, should be set with zeros. This sets all the other menu items to 
zero. 

The SUB routine is easy to call, but designed with ease of use in mind. 
For each parameter, a loop executes which assigns the specific item 
types to all menu items. 
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Abacus 10. Effective programming 



1 Effective programming 



"How can I program more effectively?" Good question. The chances are 
good that anyone reading this book has some knowledge of program- 
ming. But since every programmer has his own style, the question of 
effective programming can't be answered simply. This chapter tries to 
point out some ideas that will help your programming style. 

Before going on to the examples, here are a few things to bear in mind. 
Style in Three different people authored this book. Every one of these men has 

programs his own style, but the ideas for style here come from only one of the 

authors. The following personal "style sheet" was used on the program 

examples in Chapter 4: 

1) Indent commands in every loop by three spaces 

2) Indent every main program command or every label by one 
character 

3) Place all subroutines at the end of a listing 

4) Place all DATA statements after the subroutines 

5) Indent any commands in an IF construct by two characters 

These are personal opinions about style. These rules assume that you 
only write one command to a program line. 

When you use multiple commands on a program line, the readability of 
the program suffers. Programming style is much more than the amount 
of money you get for writing a program To some degree, a program is 
a work of art. The most important aspect of a program is that it works, 
and not necessarily how it looks. However, when you write a program 
mat's several hundred lines long, or when you want to adapt this pro- 
gram for commercial sale, you should write it so that anyone can under- 
stand it if they look at it. 

Style is but a small part of effective programming. As already men- 
tioned, readability serves the user and the programmer, but it's 
incidental. The program's function is the primary factor. An effective 
program accomplishes in one line what could normally take ten lines of 
program code. Or, an effective program executes a formula in seconds 
that might take other programs a week. 
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10.1 Benchmarks 



Tests for measuring program speed and efficiency are called benchmarks. 
These benchmarks measure the time involved in a program run. You 
can then edit the program and try die benchmark again. 



10.1.1 Benchmark: variable types 



Why are there different variable types? For one thing, you can't store 
text in the same way you store numbers. To see some other reasons 
why there are so many different types of variables, type in and run the 
following program: 

• Benchmark used for testing the differences^ 
' between different variable typesi 

•1 

* © by Wgb, June '87fl 
1 

PRINT "Benchmark 1 tests for the differences between 

differenffl 

PRINT "variable types, using the following loop: II 

PRINTH 

PRINT " FOR i-1 to 10000H 

PRINT " a=a+l! 

PRINT " NEXT if 

PRINTS 

H 

tla-TIMERfl 

H 

FOR i%=l TO 10000U 

a«»a+lfl 
NEXT i%! 
1 

tlb=TIMERfl 

PRINT "Short integer floating variable (%) 

:";tlb-tlaS 
CLEARS 
1 

t2a=TIMERH 
1 
FOR i&=l TO 100001 

a=a+lfl 
NEXT isll 

t2b=TIMER5 

PRINT "Long integer floating variable (&) :";t2b-t2afl 
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CLEAR5 

1 

t3a-TIMERU 

FOR i-1 TO 100005 

a-a+11 
NEXT if 

t3b-TIMER5 

PRINT "Single-precision floating-point variable 

t3afl 
CLEAR5 



:";t3b- 



t4a=TIMERfl 

1 

FOR i!-l TO 10000H 

a=a+lfl 
NEXT i!5 
1 

t4b-TIMERfl 

PRINT "Single-precision floating-point variable ( ! ) :";t4b- 
t4a5 
CLEARS 
I 

t5a-TIMERH 
H 
FOR i#=l TO 10000H 

a=a+lfl 
NEXT i#5 
f 

t5b=TIMERf 

PRINT "Double-precision floating-point variable (#) 
:";t5b-t5aB 

All the other benchmarks in this chapter are based on this program. 
rrogram First some text commentary appears, telling the user what the program 

description does. The text then disappears. 

The time variable tla declares the starting time (tla=TlMER), then the 
program executes a loop. The time variable with the index b sets the 
ending time. The computer figures out the execution time of the loop 
from the difference between the starting and ending time. This appears 
on the screen with a text. To avoid any outside influence, all variables 
clear and the routine starts all over again. 

This tests out the execution time of the same loop, using variables of 
different types. The final result shows which variable types allow faster 
execution, and which variable types slow execution time. 

See the table below. These are the values we received when we ran this 
benchmark, but try the program out yourself: 
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mt 



Short and 

long 

integers 



10.92188 
10.89844 
10.89844 
11.05859 
10.89844 
10.89844 
10.89844 



long int 



11 

11 

10.96094 

11 

10.98047 

10.98047 

10.98047 



simple float simple ! double 



13 

13 

13.10156 

13 

13 

13 

13 



13 

13 

16.59766 

13 

13 

12.98047 

13 



13.80078 

13.9375 

13.83984 

13.80078 

13.80078 

13.80078 

13.80078 



As you can see from the table, the values aren't constant for every type. 
The next section explains why this is so. 

The loop executes 10,000 tunes. Decimal places must be born in mind 
— multiply the entire set by 1000, and the values are more even. 

The long integer values require more time than the short integers. This 
is understandable since the bytes store twice their length in numbers. 
The disadvantage to both these variable types is that they can handle 
whole numbers. only. 

Integer variables are faster than floating-point variables. So you can dis- 
tinguish the types by those marked by decimal points. There are three 
distinctions between two types. One is single accuracy, the other has 
double accuracy. The simplest means that unless a variable is desig- 
nated otherwise, it handles numbers with single accuracy. You can also 
add an exclamation point to a variable name, which invokes double 
accuracy. The amazing thing is that some test runs of variables that had 
the exclamation points following them ran much faster than those vari- 
ables without it This speed change was inconsistent, however (see also 
Section 10.1.2). 

You'll see that most of the time double accuracy variables run con- 
siderably slower than simple accuracy variables. If you don't need to use 
double accuracy, don't use it 



10.1.2 



Benchmark peculiarities 



Before we continue on with the next benchmark, you should know 
about a few of the peculiarities of benchmarks. 

You may wonder why benchmarks run differently each time you run the 
computer. This is due to the random numbers which change through the 
TIMER variables every time a program starts. 
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Speed 
changes 



BASIC from 
the CLI 



Some benchmark tests give values that can be incredibly different from 
each other. Some changes are due to timing, but many returned values 
can look totally illogical. Most of the time, these odd values can't be 
figured out In a few cases, the BASIC version and the time delay used 
cause the changes. 

Here are some hints for you. If you want your BASIC programs to run 
faster, then don't start BASIC from the Workbench. This takes up extra 
memory and another task — these things absorb execution time. 

When you stop the Workbench and the CLI window appears, type in 
any characters until the disk drive runs a moment Put the diskette into 
the drive and erase your random characters using the <BACKSPACE> 
key. 

To start BASIC, type a quotation mark, the diskette drive specifier, a 
colon and the name amigabasic ending with a quotation (i.e., 
n df : amigabasic"). Press the <RETURN> key. BASIC loads. 

This method saves you a lot of time. The only thing you may really 
miss is the user-friendly nature of the Workbench. When you want to 
load a program, then you must type in the program name instead of 
clicking the icon. In the long run, though, the quotation marks are a lot 
faster. 



10.1.3 



Benchmark: DEF for variable declaration 



The Amiga has two ways that the user can assign variables. You can 
either put a declaration character after each and every variable (e.g., %, 
&, !, #), or you can define all the variables at the beginning of the pro- 
gram with one character for a specific type. 

The program following tests which of the two versions run faster. The 
return of illogical values may occur as mentioned in the last section. 

' Benchmark for testing the time differences between! 

' variables declared using DEF to set the variable"! 

' type! 

! 

PRINT "This benchmark tests for the differences in 

execution! 

PRINT "times between variables. The first loop uses the! 

PRINT "variable definitions within the loop, while the 

second? 

PRINT "loop uses the DEFinition statement.! 

PRINT! 

CLEAR! 

tla=TIMER! 
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5 




FOR i%=l TO 100005 


a«a+15 




NEXT i%5 




1 




tlb-TIMER5 

1 

PRINT "Vai 

5 

CLEARS 




lable with character: ";tlb-tla5 




5 




DEFINT 15 




t2a-TIMER5 

5 

FOR 1-1 TO 




100005 


a-a+15 




NEXT if 




5 




t2b-TIMER5 

5 

PRINT "Var 




iables using DEF :";t2b-t2a5 


characters 


DEF 


10.9375 


10.94141 


10.94141 


10.94141 


10.90234 


10.94141 


10.91791 


10.91791 


10.92188 


10.91791 


10.90234 


10.90234 


10.91797 


10.90234 


10.91797 


10.91797 


10.94141 


10.94141 


10.92188 


10.91797 


10.91797 


10.91797 



This table shows you that a definition with DEF is considerably faster. 
This especially applies to programs in which almost all variables are of 
one type, and in which very few others are used. 

The speed advantage lies in not using the character for the variable type. 
For every variable, the interpreter has one less character to read. You see 
how that works. The effect only works most naturally when these lines 
execute within a loop, for example. 
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10.1.4 Benchmark: variable definition time 



This means a great deal, since BASIC must set up a list of variables 
used. When a variable is defined at the beginning of a program, this 
variable goes to the beginning of the list When other variables follow, 
and the program must search for them in this list 

Type in me following program, or just look at the table. The best thing 
to do is make your own table. 

' Benchmark for testing speed between variables! 

' definitions both at the beginning and later on! 

' in program loops! 

'! 

• © by Wgb, June '875 

'! 

! 

PRINT "The variables used in the first loop are 

predefined. ! 

PRINT ! 

PRINT "The second loop inserts other variables, even! 

PRINT "though the loop doesn't use these variables.! 

PRINT "The loop formula:! 

PRINT! 

PRINT "for i-1 to 10000! 

PRINT " a-a*l.l! 

PRINT "next i! 

PRINT! 

! 

a-0! 

tla-TIMER! 

! 

FOR i-1 TO 10000! 

a-a*l.l! 
NEXT i! 
! 

tlb-TIMER! 
! 

PRINT "1st loop :";tlb-tla! 
! 

CLEAR! 

b-0 : c-0 : hello-0 : me-0! 
a-0! 

t2a-TIMER! 
! 
FOR i-1 TO 10000! 

a-a*l.l! 
NEXT i! 
! 
t2b-TIMER! 

! 

PRINT "2nd loop :";t2b-t2a! 
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10.45703 


10.46094 


10.45703 


10.46094 


10.46094 


10.45703 


10.46094 


10.48047 


10.48047 


10.46094 


10.46094 


10.48047 


10.46094 


10.48047 


10.48047 


10.46094 



As you can see, there is virtually no difference when a variable is de- 
fined, even if die variable is unnecessary. 



10.1.5 Benchmark: Variable name lengths 

The earlier computers manufactured by Commodore only read two- 
character variable names. AmigaB ASIC allows you to use much longer 
variable names, which means that you could write variable names that 
meant something in your programs (e.g., you could assign a variable 
named BorderColor to represent the screen border color number). 

Longer variable namesare easier for the user to read. But do they affect 
the program's execution time? The longer names take up more memory, 
so it stands to reason that a longer name takes more time to handle. 

This benchmark tests out the nature of these variables. The first loop 
executes a set of computations using long variable names. The second 
loop performs the same computations with very short variable names. 

' Benchmark for testing speeds of loops ! 

' using shorter or longer variable names! 

! 

• © by Wgb, June '87! 

•I 

1 

PRINT "The first loop uses very long! 

PRINT "variable names. The second loop! 

PRINT "uses variable names consisting of! 

PRINT "single characters."! 

PRINT! 

! 

tla-TIMER! 

I 

FOR IndexCounter-1 TO 10000! 

PartialResult-IndexCounter A 2-3*IndexCounter! 

EndResult=PartialResult-l/3*PartialResult! 
NEXT IndexCounter! 
! 
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tlb-TIMERf 




f 




PRINT "1st 


loop:";tlb-tlaH 


f 




CLEARS 




« 




t2a-TIMERS 




f 




FOR i-1 TO 


100005 


t-i A 2-3*ifl 


e-t-l/3*tH 


NEXT il 




5 




t2b=TIMERS 




I 




PRINT "2nd 


loop: ";t2b-t2a1I 


long name 


short name 


111.457 


111.4609 



Here again, there's very little difference between the two types. Most of 
the time, the shorter variable names are only a little faster. It is recom- 
mended that you use longer names for variables. This may take up a bit 
more typing time on your part, but you get much more information 
about the variables. 



10.1.6 Benchmark: single-line loops 



One question that has always been asked is whether a programmer 
should run loops over the course of several lines, or just squeeze loops 
into one line. Many programmers don't like compressed programs; but 
Uy out this benchmark first, and see which is faster. 

The following program performs an addition. It continues this addition 
until the program reaches a specific value. This occurs within a struc- 
tured loop containing several lines. The second route has (he entire loop 
within one line. Which is faster? 

' Benchmark for testing speed differences between^ 

• line set-upsfl 

•5 

' © by Wgb, June '875 

'I 

1 

PRINT "This program tests the same command sequence in 

both single-lineS 

PRINT "and multiple-line program format using the 

formula :1 

PRINTS 

PRINT "1. WHILE a<10000H 
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PRINT H 


a-a+l! 




PRINT " 


WEND! 




PRINTf 






PRINT "2. 


WHILE a<10000 


: a-a+l : WEN 


PRINT! 






! 






a-0! 






tla-0 : tl 

! 

tla-TIMER! 

! 

WHILE a<10 


b-0 : t2a-0 : 


t2b-0! 






000! 




a«-a+l! 






WEND! 






! 






tlb-TIMER! 






a-0! 






t2a-TIMER! 

! 

WHILE a<10 

! 

t2b=<riMER! 

! 

PRINT "1. 






000 : a-a+l : 


WEND! 






(multiple lines) :";tlb-tla! 


PRINT "2. 


(single line) 


:";t2b-t2a! 


3 lines 


1 line 




18.4375 


18.96094 




18.41797 


18.96094 




18.39844 


18.96094 




18.39844 


18.96094 




18.42188 


18.96094 




18.41797 


18.96094 




18.33984 


18.87891 




18.35938 


18.90234 





You may be surprised to learn that the tightly packed line is somewhat 
slower than the separate ones. Why this is so, we don't know. But this 
means that you can write neat, structured programs without sacrificing 
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10.1.7 Benchmark: subroutine positioning 



Older Commodore computers ran faster when program jumps occurred 
at the beginning of the program. This was because the BASIC 
operating system looked for subroutines in a program starting at the 
beginning of the program. 

This program tests out execution times based on the positions of 
subroutines. 

' Benchmark for testing speed differences based ! 
* on the positioning of subroutines within an ! 
' AmigaBASIC program. 5 
! 

GOTO Mainprogram! 
! 

Subroutine!.: 5 
! 
a=>a+l! 

H 
RETURN! 

Mainprogram: ! 

! 

PRINT "This program tests for the speed difference (if 

any) ! 

PRINT "between programs using subroutines at the 

beginning! 

PRINT "and end of program code.! 

PRINT! 

tla=TIMER! 

! 

FOR i-1 TO 10000! 

a=a+l! 
NEXT i! 
! 

tlb=TIMER! 

PRINT "Normal loop time :";tlb-tla! 

CLEAR! 
t2a-TIMER! 

! 

FOR i=l TO 10000! 

GOSUB Subroutinel! 
NEXT i! 
! 

t2b=TIMER! 

PRINT "Time with subroutine at beginning: ";t2b-t2a! 
CLEAR! 
t3a=TIMER! 
! 
FOR i-=l TO 10000! 
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GOSOB Subroutine2fl 
NEXT if 
5 

t3b-TIMER5 

PRINT "Time with subroutine at end 
END5 
1 
Subroutine2:S 

« 

a-a+lf 
1 
RETURN^ 



:";t3b-t3a5 



normal 



start 



13.05859 

13.01953 

13 

13 

13 



19.78105 
19.71875 
19.71875 
19.69922 
19.71875 



end 



19.75781 
19.72266 
19.71875 
19.72266 
19.71875 



To make this comparison, the first loop performs the innermost tasks. 
Then the inner section goes to the subroutine at the beginning. Finally 
the same subroutine is accessed at the end of the program. 

The loop not contained within a subroutine is the fastest loop of the 
bunch. A program jump takes considerably longer, but the time differ- 
ence between the two subroutines is very interesting. Placing the 
subroutines at the end of the program seems to work better than placing 
them at the beginning. 
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10.2 Short libraries 



Memory and 
libraries 



Effective programming also means that the programmer uses as little 
memory as he possibly can. This extra memory can be used for more 
important assignments. 

Library files can take up a great deal of memory. The most important 
libraries are already in the system when you boot the Amiga. All other 
libraries are called from the Workbench diskette as needed. BASIC calls 
these libraries according to name, parameters and offset of every 
function. 

A library file must have memory reserved for it, which doesn't really 
have another purpose. Every byte is important, though. You don't want 
to waste memory, especially with only 512K available. 

Many libraries are frequendy unnecessary, but BASIC calls them 
anyway. You can remove these unnecessary libraries from the list, and 
have the Amiga load the .bmap fdes that it absolutely requires. 

The following program uses this principle. After entering the function 
names and their parameters in the DATA statements, you can start the 
program and create your own personal program library. You should 
know which libraries are required by which program. No two programs 
can use the same library files. Insert a comment using the Info func- 
tion of the Workbench that states to which program this library 
belongs. 



REM * 

REM - Universal .bmap linker for -5 
REM - creating abbreviated Libraries -5 

PEM 1 

Header: 11 

1 

PRINTS 

PRINT" .bmap creator for user-created abbreviated 

libraries"! 

PRINT" (See Amiga Tricks & Tips from Abacus for a 

complete"! 

PRINT" list of library command data for tins 

program) "1 

FunctionValues : 5 

1 

DATA graphical 

DATA Move, 9, 1,2, 2405 
DATA PolyDraw, 10,1, 9, 336H 
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DATA SetDrawMode, 10, 1,354! 

5 

DATA end! 

! 

REM 



rem " ^T B abOVe u? ATA 8tatemamts «*ate ^e following: ~! 
REM - DATA graphics - name of the short library file -! 
REM - Move, PolyDraw and SetDrawMode - the commands -! 
REM - placed in the short library file _g 

RESTORE FunctionValues! 

! 

READ LibName$! 

! 

OPEN LibName$+".bmap" FOR ODTPOT AS 11 

1 

ReadLibFunc:! 

READ Routine$5 

gencount=gencount+l ! 

IP Routine$-"end" THEN ShutDown! 
! 

counter=01 

ReadLoop:! 

READ value (counter) ! 

IF value (counter) <20 THEN! 

counter-counter+1 5 

GOTO ReadLoop! 
ELSE! 

of f set -value (counter) ! 

counter— counter-H 
END IF! 



! 



5 



offset=65536&-offset! 
of f 1-INT (offset/256) ! 
of f2-off set- (256*of f 1) ! 

lib$-Routine$-KHR$ (0) +CHR$ (of f 1) +CHR$ (of f 2) ! 

FOR loop=0 TO counter! 

lib$=lib$4CHR$ (value (loop) ) ! 

NEXT loop! 

lib$-lib$+CHR$ (0) ! 
ges$=ges$+lib$! 



! 

GOTO ReadLibFunc! 

! 

ShutDown:! 

! 

LOCATE 7,6! 

PRINT gencount-2; " functions written to the short 
library. "! 
PRINT#l,ges$! 
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CLOSE 15 

LOCATE 9,65 

PRINT " "LiWJame$+ ,, .JMiiap written to diskette. "5 

LOCATE 12,65 
ENDfl 

The sample listing above shows a library which could be used with a 
grid-based graphic program. It contains the most important graphic 
functions needed: Move, SetDrawMode and PolyDraw. Think of 
the memory and loading time saved by loading a short library, instead 
of loading the entire library set 

You can make even more changes. If you don't want to call the func- 
C hanging dons under their usual names, you can change the name in the DATA 

the libraries list, and reboot the program. Only the offsets are necessary to call the 

libraries. 

Changing the names for the entire library set isn't so easy. First you 
must copy the source library with the new names on the Workbench 
diskette, giving you a copy of the same library (hopefully you'll have 
enough memory). Change the Jbmap filenames. Then the entire library 
is no longer a problem. 

Below are the complete DATA statements for the do s, exec, 
graphics and intuition libraries. These let you create your own 
individualized i>map files. 



exec. library 



DATA exec 

DATA InitCode,72 

DATA InitStruct.10,11,1,78 

DATA MakeLibrary.10,11,12,1,2,84 

DATA MakeFunctions,90 

DATA FindResident.96 

DATA InitResident,102 

DATAAlert,108 

DATADebug,114 

DATADisable.120 

DATA Enable, 12 6 

DATAForbid.132 

DATAPermit,138 

DATASetSR.1,2,144 

DATA SuperState.150 

DATA UserState.1,156 

DATA SetlntVector.1,10,162 

DATA AddIntServer.1,10,168 

DATARemIntServer.1,10,174 

DATACause.10,180 

DATA Allocate.1 0,1,1 8 6 

DATA Deallocate.10,11,1,192 

DATA AllocMem.1,2,198 

DATAAllocAbs,204 
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DATA FreeMem.10,1,210 
DATAAvailMem,2,216 
DATA AllocEntry,9,222 
DATA FxeeEntxy.9,228 
DATA Insert,9,10,ll,234 
DATAAddHead.9,10,240 
DATA AddTai 1,9,10,246 
DATA Remove, 10,252 
DATA RemHead.9,258 
DATARemTail.9,264 
DATA Enqueue,9,l 0,270 
DATA FlndName.9,10,276 
DATA AddTask,l 0,11,12,282 
DATA RemTask.10,288 
DATAFindTask.10,294 
DATA SetTaskPri,l 0,1,300 
DATA SetSignal.1,2,306 
DATA SetExcept.1,2,312 
DATAWait.1,318 
DATA Signal.10,1,324 
DATA AllocSignal.1,330 
DATA FreeSignal.1,336 
DATA AllocTrap.1,342 
DATA FreeTrap.1,348 
DATAAddPort.10,354 
DATA RemPort.l 0,3 60 
DATA PutMsg,9,l 0,366 
DATAGetMsg.9,372 
DATA ReplyMsg.10,378 
DATA WaitPort.9,384 
DATAFindPort.10,390 
DATAAddLibrary.10,396 
DATA RemLibrary.10,402 
DATA QpenLibrary.10,1,408 
DATA CloseLibrary.10,414 
DATA SetFunction.10,9,1,420 
DATA SumLibrary.10,426 
DATA AddDevice,l 0,432 
DATA RemDevice,10,438 
DATA OpenDevice.9,1,10,2,444 
DATA CloseDevice.10,450 
DATA DoIO.10,456 
DATA SendIO.10,462 
DATA CheckIO.10,468 
DATAWaitIO.10,474 
DATAAboxtIO,480 
DATA AddResource.10,486 
DATA ReniResource,10,492 
DATA OpenResource.10,498 
DATAGetCC.528 

DATA end 



302 



Abacus 10.2 Short libraries 

intuition .library 

DATA intuition 

DATA AddGadget,9,l 0,1,42 

DATA AllocRemember,9,l,2,396 

DATAAutoRequest,9,10,ll,12,l,2,3,4,348 

DATA BeginRef resh.9,354 

DATABuildSysRequest.9,10,11,12,1,2,3,360 

DATA ClearDMReguest.9,48 

DATA ClearMenuSt rip, 9,54 

DATA ClearPointer,9,60 

DATA CloseScreen,9,66 

DATA CloseWindow,9,72 

DATA CloseNorkBench.78 

DATA CurrentTime.9,10,84 

DATA DisplayAlert.1,9,2,90 

DATA DisplayBeep.9,96 

DATA DoubleClick.1,2,3,4,102 

DATA DrawBorder.9,10,1,2,108 

DATA Drawlmage,9,10,l,2,114 

DATA EndRef resh, 9,1,366 

DATA EndRequest.9,10,120 

DATA FreeRemember.9,1,408 

DATA FreeSysRequest.9,372 

DATA GetDefPref s.9,1,126 

DATA GetPref s,9,l,132 

DATA InitReque3ter,9,138 

DATA IntuiTextLength.9,330 

DATA ItemAddress.9,1,144 

DATA MakeScreen.9,378 

DATA Modif yIDCMP.9,1,150 

DATAModifyProp.9,10,11,1,2,3,4,5,156 

DATA MoveScreen, 9,1,2,1 62 

DATA MoveWindow.9,1,2,168 

DATA Of f Gadget.9,10,1 1,174 

DATA OffMenu.9,1,180 

DATA OnGadget.9,10,11,186 

DATA OnMenu.9,1,192 

DATA OpenScreen.9,198 

DATA OpenWindow.9,204 

DATA OpenWorkBench.210 

DATAPrintIText.9,10,1,2,216 

DATA Ref reshGadgets.9,10,11,222 

DATA RemakeDisplay,384 

DATA RemoveGadget.9,10,228 

DATA ReportMouae,9,l,234 

DATA Request.9,1 0,240 

DATA RethinkDisplay,390 

DATA ScreenToBack.9,246 

DATA ScreenToFront.9,252 

DATA SetDMRequest.9,10,258 

DATA SetMenuStrip.9,10,264 

DATA SetPointer,9,10,l,2,3,4,270 

DATA SetWindowTitles.9,10,11,276 

DATA ShowTitle.9,1,282 
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DATA SizeWindow,9,1.2,288 

DATAViewAddress,294 

DATA ViewPortAddress,9,300 

DATAWBenchToBack.336 

DATAWBenchToFront,342 

DATA WindowLimits,9,l,2,3,4,31 8 

DATA WindowToBack.9,306 

DATAWindowToFront.9,312 

DATA SetPrefs.9,1,2,324 

DATA AllohaWorkbench.9,402 



dos.library 



DATA end 



DATAdos 



DATA xClose,2,36 

DATA CreateDir.2,120 

DATA CurrentDir.2,128 

DATA DeleteFile.2,72 

DATA DupLock.2,96 

DATA Examine.2,3,102 

DATA ExNext.2,3,108 

DATA GetPacket.2,162 

DATA Inf o,2,3,ll 4 

DATAxInput,54 

DATA IoErr,132 

DATA Islnteractive.2,216 

DATALock.2,3,84 

DATA xOpen.2,3,30 

DATA xOutput, 60 

DATA QueuePacket.2,168 

DATA ParentDir.2,210 

DATA xRead.2,3,4,42 

DATA Rename.2,3,78 

DATASeek.2,3,4,66 

DATA SetComment,2,3,180 

DATA SetProtection.2,3,186 

DATA DnLock.2,90 

DATA WaitForChar.2,3,204 

DATA xWrite.2,3,4,48 

DATA CreateProc.2,3,4,5,138 

DATA DateStainp,2,192 

DATADelay.2,198 

DATA DeviceProc.2,174 

DATAxExit.2,144 

DATA Execute.2,3,4,222 

DATA LoadSeg.2,150 

DATA UnLoadSeg.2,168 

DATA end 
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11. Machine language calls 



AmigaBASIC is a wonderful programming language, but it runs too 
slow for many applications. The clearest solution may be to write the 
program that needs the most speed in machine language and call it from 
AmigaBASIC. There are some problems with this idea, which this 
chapter explains. 

First on to the assembler itself. We use AssemPro Amiga from 
Abacus. 

The first important factor is the addressing type used to assemble your 
own machine language programs. When you want to use machine lan- 
guage calls from AmigaBASIC, you must use PC-relative addressing. 
Normal code can be called from the Workbench or the CLI, but you can 
count on a system error when calling normal machine code from 
AmigaBASIC. The term "PC" refers to the Program Counter, rather 
than personal computer. Why PC-relative? Look at what happens when 
the Amiga loads and runs machine language. The Amiga is 
multitasking, which means it can run several programs at the same 
time. These programs must all start at different memory locations. It 
naturally follows that the addresses used by the program cannot be 
loaded at the same locations, or else the entire system crashes. After 
loading, the operating system converts all addresses used to the required 
memory locations. 

When you load a machine language routine from AmigaBASIC, and no 
other task is in the system, no address changing occurs. The program 
should run as it comes from the diskette, but AmigaBASIC cannot set 
the address in which the routine should lie, since it only sets absolute 
addressing for itself. 

Be sure that your assembler only uses offsets for the current address. 
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11.1 Loading and running 
machine language 



Here's the step by step process for controlling machine language from 
AmigaBASIC. First the routine should be loaded into memory. You 
can do this in one of two ways: Load direct from diskette, or execute the 
routine from DATA statements from AmigaBASIC itself. 

There are several ways to load programs from diskette: 

1) For long machine language or BASIC programs: 

DECLARE FUNCT ION xOpen & L IBRARY ' don ■ t 
DECLARE FUNCTION xReadfi LIBRAY * forget to 
LIBRARY "dos.library" • call libs 

File$="Myroutine n +CHR$ (0) 
handle&=xOpen& (SADD(File$),1005) 
reader&=xRead& (handle&,Address&,Lenght& ) 
CALL xClose (handles ) 

2) The DOS library must be opened for loading. The following 
works: 

OPEN "Myroutine" FOR INPUT AS 1 

a$=INPUT$(LOF(l),l) 
CLOSE 1 

This routine must already be set up in a string. 

3) Short routines let you read a file byte for byte into any variable, 
or POKE it direct into memory. 

If you prefer to use DATA statements from within AmigaBASIC, look 
at the Data Generator program in Section 6.3.1. 

If your program lies in a specific memory range (e.g. chip RAM), use 
the AllocMem routine from the Exec library to reserve memory. The 
simplest option is to read a routine into a string. You can use array 
variables if you wish. 
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11.2 LED shocker 



Imagine this: You run a program. For a moment, nothing appears on 
the screen. Suddenly the POWER LED on die Amiga blinks— a sys- 
tem crash! 

No, not a system crash; the machine language program below made the 
LED flash: 

start: ; beginning of program 

move.l dO,-<sp) /Reserve data register from stack 

move.l 8(sp),d0 /Value from data register 

cmp.l #l,dO /Value = 1? 

beq LEDON /Branch to LEDON 

LEDOFF: /Otherwise do this 

or.b #2,$bfe001 /Set bit 1 

bra DONE /Jump to DONE 

LEDON: /Turn LED on 

andi.b #253,$BFE001/Clear bit 1 



DONE: 




move.l (sp)+,dO 


/Remove dO from stack 


rts 


/Return to AmigaBASIC 


END 


/end of program 



If you don't want to type it in on your assembler, or you don't have an 
assembler, see the program in the next section. 
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11.3 Passing values 



AmigaB ASIC calls a machine language program with the variable name 
which contains the starting address of the program. This is done by the 
CALL command: 

CALL address & (parameter_l,...,last_parameter) 

The interpreter places the last parameter on the stack, then accesses the 
first parameter and places the return address on the stack. You can access 
the correct address from the stack. Here's a graphic layout of the stack: 

Line number Stack setup 

stackpointer = return address 

stack pointef+4 = parameter_l (just one) 

1 stackpointer = dataregisterO 
stack pointer+4 = return address 
stack pointer+8 = parameter^ 

11 stackpointer - return address 

stack pointer+4 = parameter^ 

Note that every register on the stack pointer increments by 4 when set 
for parameters. 

How does AmigaBASIC handle the results of this routine through a 
function? The addresses of the variables which later contains the result 
are given. This simplifies the entire program, since you must at least 
use array variables. 

Now on to the program itself. These DATA lines were created using the 
Data Generator program in Section 6.3.1. 
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REM #############################? 
REM # LED-Shocker #3 
REM # #3 

REM # (W) 1987 by S. Maelger #3 

REM ############################# 5 

3 

RESTORE datas3 

datastring$=""S 

FOR i=l TO 401 

READ a$3 

a$="SH"+a$3 

datastring$=datastring$+CHR$ (VAL (a$) ) 3 

NEXTS 

3 

datas:3 

DATA 2F,0,20,2F,0,8,B0,3C,0,1,67,0,0,E,0,39,0,2,0,BF3 

DATA E0,1,60,0,0,A,2,39,0,FD,0,BF,E0,1,20,1F,4E,75,0,03 

3 

POWERS=SADD(datastring$) :REM Load string addressS 

3 

FOR i=l TO 20 :REM3 

3 

Modes=0 :REM Turn off LED 3 

CALL POWERS (Modes) :REM Call routine 3 

t=TIMER+.5 :REM but not too3 

WHILE t>TIMER :REM fast3 

WEND :REM3 

3 

ModeS=l :REM Turn on LED 3 

CALL POWERS (Modes) 3 

t=TIMER+.53 

WHILE t>TIMER3 

WEND3 

NEXT3 

STOP3 
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12. Input and output 



Users normally think of input and output (or I/O) as the contact 
between the Amiga and its peripherals. Peripherals are devices such as 
printers, joysticks and disk drives. The Amiga treats the built-in disk 
drive as an external device, since disk drives are considered external by 
most computers. 

The advanced user may wonder how to communicate with these devices 
on a more-or-less direct basis. The Amiga has a basic I/O system. 
Every device has a corresponding software module which converts the 
basic control codes into device-specific codes. These software modules 
have file extensions of . device. Some of these device files lie in 
KickStart memory, while some are on the Workbench diskette. 

You must create an I/O request block to handle I/O. This is placed in a 
reserved area of memory. This section is defined as follows: 

adds = starting memory 

address :B=byte:W=word:L=longword 

add&+ type definition 






L 


pointer to previous node 


4 


L 


pointer to next node 


8 


L 


type 


9 


B 


priority 


10 


L 


pointer to name string 


14 


L 


pointer to message port 


18 


W 


message length in bytes 


20 


L 


pointer to device block 


24 


L 


pointer to unit block 


28 


W 


I/O command 


30 


B 


flags 


31 


B 


I/O error number 


32 


L 


actual array 


36 


L 


length array 


40 


L 


data array 


44 


L 


offset array 



Along with this structure a message port must be created. This is a 
segment of memory set aside for I/O communication. 

The I/O request block can be thought of as a letter traveling through the 
mail. When a multitasking system such as the Amiga's appears to be 
handling several tasks at once, it's really handling one program at a 
time for a moment When one of these programs must communicate 
with another "simultaneously running" program, this communication 
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travels as a message. The I/O request block is one messenger of this 
type. The BASIC interpreter of AmigaBASIC runs the I/O device as a 
program running parallel to the BASIC program. This hands the 
message block to the address of the other task. In reality, the data block 
stays in one place instead of moving around in memory. The foreign 
task passes final control over this memory. As long as an TJO request 
block shifts to another task, our own program doesn't access the 
memory. When the other task processes the message, control over this 
memory returns to our own program. 

We won't bore you with the technical background involved, since that 
goes far beyond the scope of this book. If, however, you wish to pursue 
the details of this process, we recommend that you read any one of the 
books about Amiga system programming. 

The following pages list a number of examples with which you can 
access disk drives and printers without a lot of programming know- 
ledge. 
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12.1 Direct disk access 



Trackdisk.device handles up to four 3-1/2" disk drives. With a 
little help, you can directly manipulate data stored on diskette. 

Every Amiga floppy disk drive has two read/write heads, one head for 
each side of a diskette. The diskette is divided into 80 cylinders per side. 
Each cylinder consists of 11 sectors. Each sector contains 512 usable 
data bytes, as well as 16 sector processing bytes. The total file capacity 
is: 

2 heads 4 ' 

80 cylinders* 

11 sectors* 
S12bvtes= 
900120 bytes (880 K) 

There are 28160 bytes unavailable to the user in addition to this 880K. 

Now on to the programming: The following program has six high-level 
SUBs as well as four sublevel routines. All you'll need for now are the 
first six SUBs. 

OpenDrive opens any disk drive. This SUB asks for the number of 
Disk access the disk drive (0=internal drive, l-3=external drives). CreateBuffer 
reserves segments of memory. This routine asks for the variable con- 
taining the starting address of the memory to be allocated, as well as the 
desired buffer's size in bytes. DiscardBuf fer releases the memory 
reserved by CreateBuffer. The only argument required is the 
starting address of the buffer. WorkDrive sends an I/O command to 
any open drive. CloseDrive closes a disk drive. MotorOf f turns 
off the disk drive motor. 

The following program lets you open any disk drive and view any one 
of 1760 sectors. The program displays the data found in hexadecimal 
notation. 

■###############################H 



'# 




#5 


'# Program: 


Disk - Monitor 


#1 


'# Author: 


tob 


#fl 


•# Date: 


8/8/87 


#1 


'# Version: 


1.0 


#5 


'# 




#fl 
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DECLARE FUNCTION OpenDevice% LIBRARY? 

DECLARE FUNCTION AllocMemS LIBRARY? 

DECLARE FUNCTION AllocSignal% LIBRARY? 

DECLARE FUNCTION FindTaskS LIBRARY? 

DECLARE FUNCTION DoIO% LIBRARY? 

S 

LIBRARY "exec. library"? 

LIBRARY "graphics. library"? 

? 

var: ■* Variable? 

DIM SHARED regS(3,l)? 
? 
main: '* Demonstration program? 

PRINT TAB (20); "DISK MONITOR"? 
PRINT? 

LINE INPUT "Which drive (0 - 3)? "; dr$? 

dr% = VAL(dr$)? 
? 

OpenDrive dr%? 
CreateBuffer dOS, 512S? 
? 

LINE INPUT "Which sector (0 - 1759)? 
.. . .";sec$? 

sec% = VAL(sec$)? 
WorkDrive dr%, 2, sect, dOS? 
MotorOff dr%? 
? 

WHILE sec$ <> "end"? 
CLS? 

PRINT "Sector ";sec%? 
PRINT? 
c% - 3? 

FOR loopl% - TO 512 - 1 STEP 25? 
FOR loop2% = TO 24? 

check% = PEEK( dOS + loopl% + loop2%)? 
h$ = HEX$(check%)? 
IF LEN(h$) = 1 THEN? 

h$ = "0" + h$? 
END IF? 

he$ = he$ + h$? 
IF check% < 31 THEN? 

d$ = d$ + "?"? 
ELSE? 

d$ = d$ + CHR$(check%)? 
END IF? 
IF loop2% + loopl% = 512 - 1 THEN? 

loop2% - 24? 
END IF? 
NEXT loop2%? 
LOCATE c%, 1? 
c% = c% + 1? 
out$ - he$ + " " + d$? 
CALL Text (WINDOW ( 8 ) , SADD ( out $ ) , 



LEN(out$))? 



he$ = ""? 
d$ = ""? 
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NEXT loopl%! 
LOCATE 1,201 

LINE INPUT "Which sector <0 - 1759, end)? 
. . . . ";sec$f 

sec* = VAL(sec$)f 
WorkDrive dr%, 2, sec%, dOs! 
MotorOff dr%! 
WEND! 
! 

DiscardBuffer dOs! 
CloseDrive dr%! 
CLSS 

PRINT "All OK. "3 
5 

LIBRARY CLOSE! 
ENDS 
2 

SOB OpenDrive (nr%) STATICS 
IF regs(nr%, 0) = THEN? 

CreatePort "disk.io", 0, ports! 
IF ports = THEN ERROR 2555 
CreateStdIO ports, ioSS 
dev$ = "trackdisk. device" + CHR$(0)S 
er% = OpenDevice% (SADD(dev$), nr%, ios, 0)5 
IF erf <> THEN! 
RemoveStdIO ios? 
RemovePort ports! 
ios = 05 
ports = 05 
ERROR 2555 
ELSE! 

regs(nr%, 0) = ios5 
regs(nr%, 1) = portS5 
END IF5 
ELSE5 

ios = regs (nr%, 0)5 
ports = regs (nr%, 1)5 
END IF5 
END SOBS 
S 

SOB CloseDrive (nr%) STATICS 
IF regs <nr%, 0) <> THEN5 
ios = regs(nr%, 0)5 
ports = regs(nr%, 1)5 
CALL CloseDevice (ios ) 5 
RemoveStdIO ioSS 
RemovePort ports! 
regs (nr%, 0) = 05 
regs (nr%, 1) = OS 
END IF! 
END SOB! 
! 
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SOB MotorOff (nr%) STATICS 
ioS = regs (nr%, 0)S 
IF ioS <> THEN! 
POKEW ioS + 28, 9? 
POKEL ioS + 36, 01 
e% = DoIO% <ioS)3 
ELSE! 

BEEPS 
END IFS 
END SOBS 
It 

SOB CreateBuffer (adds, sizes) STATICS 
IF sizes > THEN? 
sizes = sizes + 43 
opts = 2*165 

adds = AllocMemS (sizes, opts)f 
IF adds <> THEN* 
adds = adds + 41 
POKEL adds - 4, sizes? 
END IFS 
ELSES 

BEEPS 
END IFS 
END SUBS 
S 

SOB DiscardBuffer (adds) STATICS 
IF adds <> THENS 

sizes = PEEKL (adds - 4)S 
adds = adds - 43 
CALL FreeMem (adds, sizes) S 
END IFS 
END SUBS 
S 

SOB WorkDrive (nr%, command%, sector%, buffers) STATICS 
td.sector% = 512S 
ioS = regs(nr%, 0)S 
td. offsets = sector%*td.seotor%S 
IF ioS <> THENS 

POKEW ios + 28, command%3 



POKEL ioS + 36, td.sector%S 




POKEL ios + 40, bufferSS 




POKEL ioS + 44, td.offsetSS 




er% = DoIO% (ioS)S 




ELSES 




BEEPS 




END IFS 




END SOBS 

s 

• sub level routines for advanced use only 




— s 



s 

SOB CreateStdIO (ports, results) STATICS 
opts = 2*165 

results = AllocMemS (62, opts) 3 
IF results = THEN ERROR 7S 
POKE results + 8, 5S 
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POKEL results + 14, ports? 

POKEW results + 18, 425 
END SUBS 
5 
SUB RemoveStdIO (ios) STATICI 

IF ios <> THEM 

CALL FreeMem(ioS, 62)5 

ELSEI 

ERROR 2552 

END IF? 
END SUB5 
S 
SOB CreatePort (port$, pri%, results) STATIC? 

opts = 2*161 

bytes = 38 + LEN(port$)f 

ports = AllocMemS (bytes , opts) 9 

IF ports = THEN ERROR 75 

POKEW ports, bytes* 

ports = ports + 25 

sigBit% = AllocSignal%(-l)5 

IF sigBit% = -1 THEN5 

CALL FreeMerMportS, bytes) 5 
ERROR 75 

END IF5 

sigTaskS = FindTaskS (0)5 
5 

POKE ports + 8 , 45 

POKE ports + 9 , pri%5 

POKEL ports + 10, ports + 345 

POKE ports + 15, sigBit%5 

POKEL ports + 16, sigTaskS5 

POKEL ports + 20, ports + 245 

POKEL ports + 28, ports + 205 

FOR loop% = 1 TO LEN(port$)5 

char% = ASC(MID$(port$, loop%, 1))5 
POKE ports + 33 + loop%, char%5 

NEXT loop%5 

CALL AddPort(portS)5 

results = ports? 
END SDB5 
5 
SOB RemovePort (ports) STATIC5 

bytes = PEEKW (ports - 2)5 

sigBit% = PEEK (ports + 15)1 

CALL RemPort (ports ) 5 

CALL FreeSignal(sigBit%)5 

CALL FreeMem(portS-2, bytes) 5 
END SOB5 



Variables 


reg& ( ) 


contains important internal I/O addresses (e.g., I/O 
request and I/Oport) 




dr% 


disk drive number (0-3) 




d0& 


5 12-byte buffer 




sec% 


sector number (0-1759) 




loopl% 


loop 
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loop2% 


loop 


check% 


character read (decimal) 


h$ 


character read (hexadecimal) 


he$ 


line read (hexadecimal) 


d$ 


line read (decimal) 


c% 


current screen line 


OpenDriveO 




nr% 


number of open drive (0-3) 


ports 


message port address 


io& 


I/O block address 


dev$ 


trackdislcdevice ended with null 


er% 


I/O error; 0=no error 


Create-Buf f er ( ) 


sizes 


buffer size in bytes 


opts 


options: 216 = CLEAR MEMORY 


adds 


address of found memory 


WorkDriveO 




td.sector% 


=512: bytes per sector 


ioS 


I/O block address 


td. off sets 


byte offset from sector 0: multiple of S12 


er% 


I/O error code 


CreatePort ( ) 


port$ 


name of new port 


pri% 


priority of new port (-128 to 127) 


results 


address of found port (output) 


opts 


memory option: 216 = CLEAR MEMORY 


bytes 


size of needed memory 


sigBit% 


signal bit 


sigTaskS 


address of AmigaB ASIC task handler 


char% 


ASCII code of character read 
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First the program establishes the number of the disk drive the user 
Program wants accessed. OpenDrive opens this drive. Next the program in- 

description ternally checks for whether the drive is already open, and whether an 
entry already lies in reg& ( ) . If not, CreatePort turns to a message 
port named disk . io. The starting address lies in ports. If no port 
exists (port&=0), then an error occurs. Otherwise, CreateStdlO 
opens a port, passing the address over to the already existing port. The 
starting address of the I/O block goes to io&. The drive opens through 
the Exec function OpenDevice% ( ) . When this routine returns a 
value greater than or less than 0, the drive cannot be opened. Possible 
reasons: Another task has control of the drive; an Open was not 
preceded by a Close; the drive doesn't exist; the drive is not connected, 
hi such a case die port and I/O block are released, the variables return to 
null status and an error message appears on the screen. The address of 
the new port and the new I/O block goes into reg& ( ) . 

The program opens a buffer large enough to hold the data of one 
diskette sector (minimum size). This 512-byte buffer is created by 
CreateBuf f er; the buffer's starting address appears in d0&. The 
user is asked for the sector he wants to view. The SUB WorkDrive 
reads this sector and places it in the buffer dO & (CMD READ, the read 
command, =2). This SUB fills the I/O request blocks the necessary 
values, and calls the Exec function Do 10% ( ) , sent to the disk drive 
through the command block. 

After WorkDrive finishes its work, the diskette motor must be 
switched off. WorkDrive turns the motor on, but not off. The reason: 
Multiple disk access can be tiring when you have to turn the disk drive 
on and off every time you need to go to the diskette. The MotorOf f 
SUB turns me motor off. The Motor command (=9) in the I/O block 
writes the contents sent from Do 10% ( ) . 

Now comes the data in memory starting from dO &. Two loops read the 
values from the buffer and place these on the screen in decimal and 
hexadecimal notation. The program then asks for additional sectors. 
You either enter a number (0-1759) or die word "end" to quit The first 
response calls up a new sector, the second response releases the buffer 
and closes the disk drive CloseDrive (the program tests for open 
disk drives through reg& ( ) ). If there is an open drive, the addresses of 
die I/O and portblock are read. RemoveStdIO and RemovePort re- 
lease this structure, and the drive closes through CloseDevice ( ) . 
Finally the program deletes the entries from reg& ( ) . 
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12.1.1 



The trackdisk. device commands 



Read data 



Write data 



Note: 



Motor 



When you want to examine your own programs, you should use the 
WorkDrive SUB to access these programs. This SUB gives you the 
following commands: 



Command number: 
Command call: 



Workdrive number%, 2, sector%, 
buffers 



If your buffer is larger than 512 bytes, you can naturally load more than 
one sector at a time. The entry within the I/O array 36 must be 
changed: For example, 5*td.sector% instead of td.sector% when 
your buffer can handle that much data. 



Command number: 
Command call: 



Workdrive number%, 3, sector%, 
buffers 



Writes the buffer contents to the given sector on the diskette. 

If you don't know what you're doing when writing to diskette, you 
could destroy the disk data. If you want to change the data on a sector, 
read the sector with command 2, edit the buffer and write the sector back 
to diskette. 

You can write more than one sector at a time (see Read data above). 



Command number: 
Command call: 



Workdrive number%, 9, 0, 



Manipulates I/O array 36: 0=motor off, l=motor on. IO_Actual 
returns the current status. 

Format disk Command number: 11 

Command call: Workdrive number%, 11, track%, 

trackbuffi 

This command writes a completely new track to diskette. One track 
consists of 11 sectors. track% must therefore be a multiple of 11. 
The track buffer must be large enough for 1 1 sectors. The command ig- 
nores all data previously stored on this track and can even overwrite hard 
errors. 
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12.1 Direct disk access 



12.1.2 



Multiple disk drive access 



The SUBs on the previous program are constructed in such a way that 
you can access up to four disk drives at a time. You must open every 
drive using the OpenDrive command and close each one individually 
later. In addition, every drive must have its own buffer available for 
copying data. You can naturally use a single buffer. 



12.1.3 



Sector design 



A sector shows just a small part of a diskette's true contents. From this 
we can see the design of sectors (numbers are given in longwords [four- 
byte arrays]): 

Root block (sector 880) 




1 
2 
3 
4 
5 
6-77 

78 
79-104 



105 

106 

107 

108-120 

121 
122 
123 
124 
125 
126 
127 



type (=2) 





hashtable size (512-224) 



checksum 

hashtable: sector numbers in which main directory 

files or subdirectories lie 

= FFFFFFFF (-1) when bitmap is valid 

number of sector containing the bitmap (normally 

one sector). Every bit of the bitmap corresponds to 

a diskette sector and indicates whether the sector is 

free (bit set) or occupied (bit unset). 

day of last date diskette was altered 

minutes 

ticks (1/50 second) 

diskette name: BCPL string: first byte gives the 

number of characters in a string (maximum 30) 

day of date mis diskette was initialized 

minutes 

ticks 







root-ID = 1 
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User directory block 

type (=2) 

1 header key (number of mis sector) 

2 

3 

4 

5 checksum 

6-77 hashtable: sector numbers in which main directory 
files or subdirectories lie 

78 reserved 

79 protection bits (EXEC, DEL, READ, WRITE) 

80 

8 1- 104 commentary string (BCPL string) 

105 day of date diskette was created 

106 minutes 

107 ticks (1/50 second) 
108-123 directory name: BCPL string 

124 next entry with equal has value 

125 sector number of root directory 

126 

127 user directory (=2) 

File header block 

type (=2) 

1 number of this sector 

2 total number of data sectors for this file 

3 number of used data block slots 

4 sector number of first data block 

5 checksum 

6-77 sector numbers of data blocks 

78 unused 

79 protection bits (EXEC, DEL, READ, WRITE) 

80 total file size in bytes 

81-104 commentary string (BCPL string) 

105 day of date diskette was created 

106 minutes 

107 ticks (1/50 second) 
108-123 filename: BCPL string 

124 next entry with equal hash value 

125 sector number of root directory 

126 or sector number of first extended block (file list 
block) 

127 file type (=FFFFFFFD) 
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File list blocl 


12.1 DD 







type(«l) 




1 


number of this sector 




2 


total number of data blocks in list 




3 


number of used data block slots 




4 


first data block 




5 


checksum 




6-77 


sector numbers of data blocks 




78-123 


unused 




124 







125 


sector number of root directory 




126 
127 


next extended block 




file type (-FFFFFFFD) 




Data block 









type (=8) 




1 


number of mis sector 




2 


sequence of data block 




3 


number of data in bytes 




4 


sector number of next data block 




5 


checksum 




6-127 


data 



12.1 Direct disk access 
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12.2 Memory handling 



The memory system of the Amiga is extremely flexible. This is be- 
cause the memory locations can be changed to fit the situation, instead 
of having fixed memory. Unlike its predecessors, the Amiga has no 
specific memory set aside for machine language user applications. This 
kind of memory layout makes no sense to a multitasking computer, 
where several programs must share memory. 

Here are the most popular methods of memory handling. 



12.2.1 Reserving memory through variables 

Every time you assign a value to a variable you take a piece of working 
memory and reserve part of the stack for this value. The amount of 
memory reserved depends on the variable type. For example, a long 
integer variable like f & would reserve 4 bytes. Now you can use this 
memory for other purposes as well. The starting address comes from the 
BASIC varptr command: 

VARPTR (f&) 

You need more than four bytes to use variable arrays (DIM f & ( 1 o ) 
reserves 400 bytes) or strings (a$=SPACE$ (10 0) reserves 100 
bytes). The starting address of the string comes from the call: 

SADD (a$) 

It should be mentioned here that the starting address of string memory 
is variable. Every new string definition can move old strings around in 
memory. Every memory access changes the starting address in memory 
This means that the memory is not well suited for set data structures 
me following method is a more practical route. 



12.2.2 Allocating memory 



The AllocMem ( ) command gives you as much memory as you ask 
for, as long as that much memory is free. You can choose between 
tnree options: 
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Public memory 2° 

Chip memory 2 1 (DMA and special purpose chips) 

Fast memory 2 2 (all other applications) 

Clear memory 2 16 (automatically clears memory) 

The following SUBs reduce memory handling to a minimum. 

'###################################5 
•# #1 

'# Programme Memory Handler #$ 

'# Author: tob #5 

'# Date: 8.12.87 if 

'# Version: 2.0 if 

•# if 

'###################################5 

DECLARE FUNCTION AllocMemS LIBRARY^ 

f 

LIBRARY "exec. library"! 

f 

demo: ■* reserve 4500 bytes! 

PRINT "Memory left after reserving 4500 
bytes: "if 

PRINT FRE(-l)! 
I 

GetMemory mems, 450051 
I 

PRINT "Current memory status: "if 

PRINT FRE(-l)! 
f 

FreeMemory memsl 

S 

PRINT "Ending memory status: "if 
PRINT FRE(-l)f 

f 

LIBRARY CLOSES 
END! 
I 
f 

SOB GetMemory (adds, sizes) STATIC? 
IF sizes > THEN! 
opts = 2*165 
sizes = sizes + if 
adds = AllocMemS (sizes, opts) f 
IF adds <> THENfl 
POKEL adds, sizes f 
adds = adds + if 
END IFS 
END IFH 
END SUBS 
f 
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SUB FreeMemory (adds) STATICS 
IF adds > THENS 
adds = adds - 45 
sizes = PEEKL (adds) 5 
CALL FreeMem(addS, sizes) 5 
END IFfl 
END SUBS 

The principle should be obvious from the example. It uses Get- 
Frogram^ Memory to reserve a memory segment of any size for your use. Two 

description variables return the address variable in which you'll find the starting 

address of the memory segment (or if there isn't enough memory 

available) and the size of the desired segment Reserving 1000 bytes is 

as simple as: 

GetMemorymyMemS, 1000& 
You'll find the starting address of the segment in the variable myMems: 
PRINT myMemfi 

When you no longer need the memory, you can return it to the system 
with the call: 

FreeMemory myMemfi 

You cannot go past the memory size allocated for this segment, since 
GetMemory actually has up to four bytes of memory reserved holding 
the bytes beyond the segment size. 
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A. AmigaBASIC tokens 

Token (hex.) value (dec.) AmigaBASIC command 



80 


128 


ABS 


81 


129 


ASC 


82 


130 


ATN 


83 


131 


CALL 


84 


132 


CDBL 


85 


133 


CHR$ 


86 


134 


CINT 


87 


135 


CLOSE 


88 


136 


COMMON 


89 


137 


COS 


8A 


138 


CVD 


8B 


139 


CVI 


8C 


140 


CVS 


8D 


141 


DATA 


8E(3A) 


142 (58) 


ELSE 


8F 


143 


EOF 


90 


144 


EXP 


91 


145 


FIELD 


92 


146 


FIX 


93 


147 


FN 


94 


148 


FOR 


95 


149 


GET 


96 


150 


GOSUB 


97 


151 


GOTO 


98 


152 


IF 


99 


153 


INKEY$ 


9A 


154 


INPUT 


9B 


155 


INT 


9C 


156 


LEFT$ 


9D 


157 


LEN 


9E 


158 


LET 


9F 


159 


LINE 


Al 


161 


LOC 


A2 


162 


LOF 


A3 


163 


LOG 


A4 


164 


LSET 


A5 


165 


MID$ 


A6 


166 


MKD$ 


A7 


167 


MKI$ 


A8 


168 


MKS$ 


A9 


169 


NEXT 


AA 


170 


ON 


AB 


171 


OPEN 
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Token (hex.) value (dec.) AmigaB ASIC command 



AC 


172 


PRINT 


AD 


173 


PUT 


AE 


174 


READ 


AF 


175 


REM 


AFE8(3A) 


175 232(58) 


i 


BO 


176 


RETURN 


Bl 


177 


RIGHT$ 


B2 


178 


RND 


B3 


179 


RSET 


B4 


180 


SGN 


B5 


181 


SIN 


B6 


182 


SPACE$ 


B7 


183 


SQR 


B8 


184 


STR$ 


B9 


185 


STRING$ 


BA 


186 


TAN 


BC 


188 


VAL 


BD 


189 


WEND 


BE EC 


190236 


WHILE 


BF 


191 


WRITE 


CO 


192 


ELSEIF 


CI 


193 


CLNG 


C2 


194 


CVL 


C3 


195 


MKL$ 


C4 


196 


AREA 


E3 


227 


STATIC 


E4 


228 


USING 


E5 


229 


TO 


E6 


230 


THEN 


E7 


231 


NOT 


E9 


233 


> 


EA 


234 


= 


EB 


235 


< 


EC 


236 


+ 


ED 


237 


— 


EE 


238 


* 


EF 


239 


/ 


FO 


240 


A 


Fl 


241 


AND 


F2 


242 


OR 


F3 


243 


XOR 


F4 


244 


EQV 


F5 


245 


IMP 


F6 


246 


MOD 


F7 


247 


\ 


F8 81 


248 129 


CHAIN 


F8 82 


248 130 


CLEAR 


F8 83 


248 131 


CLS 


F8 84 


248 132 


CONT 


F8 85 


248 133 


CSNG 
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Token (hex.) value (dec.) AmigaB ASIC command 

F8 86 248 134 DATE$ 

F8 87 248 135 DEFINT 

F8 88 248 136 DEFSNG 

F8 89 248 137 DEFDBL 

F8 8A 248 138 DEFSTR 

F8 8B 248 139 DEF FN 

F8 8C 248 140 DELETE 

F8 8D 248 141 DIM 

F8 8E 248 142 EDIT 

F8 8F 248 143 END 

F8 90 248 144 ERASE 

F8 91 248 145 ERL 

F8 92 248 146 ERROR 

F8 93 248 147 ERR 

F8 94 248 148 FILES 

F8 95 248 149 FRE 

F8 96 248 150 HEX$ 

F8 97 248 151 INSTR 

F8 98 248 152 KILL 

F8 99 248 153 LIST 

F8 9A 248 154 LLIST 

F8 9B 248 155 LOAD 

F8 9C 248 156 LPOS 

F8 9D 248 157 LPRINT 

F8 9E 248 158 MERGE 

F8 9F 248 159 NAME 

F8 A0 248 160 NEW 

F8 Al 248 161 OCT$ 

F8 A2 248 162 OPTION 

F8 A3 248 163 PEEK 

F8 A4 248 164 POKE 

F8 A5 248 165 POS 

F8 A6 248 166 RANDOMIZE 

F8 A8 248 168 RESTORE 

F8 A9 248 169 RESUME 

F8 AA 248 170 RUN 

F8 AB 248 171 SAVE 

F8 AD 248 173 STOP 

F8 AE 248 174 SWAP 

F8 AF 248 175 SYSTEM 

F8 B0 248 176 TIME$ 

F8 Bl 248 177 TRON 

F8 B2 248 178 TROFF 

F8 B3 248 179 VARPTR 

F8 B4 248 180 WIDTH 

F8 B5 248 181 BEEP 

F8 B6 248 182 CIRCLE 

F8 B8 248 184 MOUSE 
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Token (hex.) value (dec.) AmigaBASIC command 



F8B9 


248 185 


POINT 


F8BA 


248 186 


PRESET 


F8BB 


248 187 


PSET 


F8BC 


248 188 


RESET 


F8BD 


248 189 


TIMER 


F8BE 


248 190 


SUB 


F8BF 


248 191 


EXIT 


F8C0 


248 192 


SOUND 


F8C2 


248 194 


MENU 


F8C3 


248 195 


WINDOW 


F8C5 


248 197 


LOCATE 


F8C6 


248 198 


CSRLIN 


F8C7 


248 199 


LBOUND 


F8C8 


248 200 


UBOUND 


F8C9 


248 201 


SHARED 


F8CA 


248 202 


UCASE$ 


F8CB 


248 203 


SCROLL 


F8CC 


248 204 


LIBRARY 


(F8)(D1) 


(248X209) 


placed after target of SUB program 
call without CALL 


F8D2 


248 210 


PAINT 


F8D3 


248 211 


SCREEN 


F8D4 


248 212 


DECLARE 


F8D5 


248 213 


FUNCTION 


F8D6 


248 214 


DEFLNG 


F8D7 


248 215 


SADD 


F8D8 


248 216 


ARE AF ILL 


F8D9 


248 217 


COLOR 


F8DA 


248 218 


PATTERN 


F8DB 


248 219 


PALETTE 


F8DC 


248 220 


SLEEP 


F8DD 


248 221 


CHDIR 


F8DE 


248 222 


STRIG 


F8DF 


248 223 


STICK 


F9F4 


249 244 


OFF 


F9F5 


249 245 


BREAK 


F9F6 


249 246 


WAIT 


F9F7 


249 247 


USR 


F9F8 


249 248 


TAB 


F9F9 


249 249 


STEP 


F9FA 


249 250 


SPC 


F9FB 


249 251 


OUTPUT 


F9FC 


249 252 


BASE 


F9FD 


249 253 


AS 


F9FE 


249 254 


APPEND 


F9FF 


249 255 


ALL 


FA 80 


250 128 


WAVE 


FA 81 


250 129 


POKEW 


FA 82 


250 130 


POKEL 


FA 83 


250 131 


PEEKW 
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value (dec.) 


AmigaBASIC command 


FA 84 


250 132 


PEEKL 


FA 85 


250 133 


SAY 


FA 86 


250 134 


TRANSLATE$ 


FA 87 


250 135 


OBJECT . SHAPE 


FA 88 


250 136 


OBJECT . PRIORITY 


FA 89 


250 137 


OBJECT.X 


FA8A 


250 138 


OBJECT.Y 


FA8B 


250 139 


OBJECT.VX 


FA8C 


250 140 


OBJECT.VY 


FA8D 


250 141 


OBJECT. AX 


FA8E 


250 142 


OBJECT. AY 


FA8F 


250 143 


OBJECT. CLIP 


FA 90 


250144 


OBJECT. PLANES 


FA 91 


250145 


OBJECT. HIT 


FA 92 


250 146 


OBJECT. ON 


FA 93 


250 147 


OBJECT . OFF 


FA 94 


250 148 


OBJECT . START 


FA 95 


250 149 


OBJECT . STOP 


FA 96 


250 150 


OBJECT. CLOSE 


FA 97 


250 151 


COLLISION 


FBFF 


251 255 


PTAB 
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B . Other tokens 



Token Definition 

$01 Variable number follows in hexadecimal notation (High/ 

Low = 2 Byte), e.g.: ($01) $00 $00 = Variable 

$02 Label number follows in hex (H/L = 2 Byte), e.g.: ($02) 

$01 $00 = label 2S6 

$03 Jump to label with the following number (H/M/L = 3 B.), 

e.g.: ($03) $00 $00 $0A > to label 10 

$0B An octal number follows (hexadecimal in High/Low format 

= 2 bytes), e.g.: (SOB) $00 $06 - &0 6 

$0C A 2-byte hexadecimal number follows in H/L format, e.g.: 

($0C) $F8 $EC = $ F8EC 

$0E Jump to the line with the following line number (H/M/L), 

e.g.: ($0E) $00 $27 $10 - after line 10000 

$0F A positive integer with a value from 10 to 255 follows, 

e.g.: ($0F) $FF = 255 

$11- A positive integer with a value from to 9 follows, e.g.: 

$1A $11 = 0,$12 = 1...$19 = 8,$1A = 9 

$1C A 2-byte integer with leading character follows, e.g.: ($1C) 

$80$A0 = -160 

$1D A 4-byte floating-point number follows, e.g.: ($1D) $3C 

$23 $D7 $0A = 0.01 

$1E A 4-byte integer follows, e.g.: ($1E) $00 $00 $80 $00 = 

32768& 

$1F An 8-byte floating-point number follows, e.g.: ($1F) $3E45 

$798E $E230 $8C3A = 0.00000001 
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5-d glasses 




88 


copying 

copying to diskette 


12,13 
29 


access 




8 


Cross-reference program 


205 


AddBuf fers command 




21 


Cursor control 


45 


Amiga disk operating system 


7 


cursor 


280 


AmigaBASIC 




37 


Cylinders 


317 


AmigaDOS 




8 






appending Mies 




19 


DATA generator program 


201, 308 


ASCII 




180 


delete command 


10 


ASCn files 




184 


Direct disk access 


317 


assembler 




307 


Directory access 


158 


AssemPro Amiga 




307 


Directory access program 


162 


assign command 




10 


Discard 

Disk access errors 


237 
270 


BASIC 




37 


Disk operating system (DOS) 


149 


BASIC file checking program 


185 


DiskChange command 


21 


batch files 




27 


diskcopy command 


14 


benchmark 




291 


DiskDoctor program 


22 


Binary files 




184 


Diskette sector design 


325 


BindDrivers command 




21 


diskfontJibrary 


38 


Blank line killer program 




212 


DOS 


149 


.bmap files 


39, 


168, 301 


DOS commands 


174 


bob 




115 


DOS commands from BASIC 


168 


border color change 




67 


dos.bmap 


168 


border structure 




65 


dosJibrary 38 


, 149, 304 


borderless 




63 


Drawing modes 
dual-drive systems 


40 
13 


CALL command 




310 


DualBitMap program 


140 


CHAIN command 




184 






ChangeTaskPri command 




21 


Ed editor 


15 


CHD I R command 




162 


editing 


15 


Checkfile program 




152 


Empty Trash 


237 


Checking for errors 




272 


error handling 


269, 272 


Chunks 




60 


errors 


270 


circles 




136 


exec. library 


38 


CLI 


150, 


156, 236 


execute command 


12, 14, 19 


CLlCopy program 




29 


Extended input 


105 


CLOSE command 




175 


Extended selection 


236 


Command Line Interface (CLI) 


7,173 


Extras diskette 


39 


COMPLEMENT 




40,42 






Console Device 




100 


fade-in 


72 


ConvertFd program 




39 


fade-out 


72 


coordinate setting 




71 


Fade-over 


74,76 


copy command 


9,1 


10, 12, 13 


File analysis 


180 


Copying diskettes 




14 


File analyzer program 


180 
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File checking 


152 


Machine language 


307 


File protection 


154 


makedir command 


10 


file management 


30 


Memory allocation 


328 


FILES command 


162 


Memory handling 


328 


Floodfffl 


62 


Memory reservation 


328 


Fonts 


97 


memory locations 


307 






memory-resident 


27 


gadget disable/enable 


64 


Menu errors 


271 


GetDir program 


158 


MERGE command 


184 


GetTree program 


162 


Microsoft Corporation 


37 


Graphic commands 


40 


monochrome Workbench 


68 


graphics Jibrary 


38, 132 


Mount command 


22 






mouse 


7,115 


Halfbrite mode 


68 


MOVE command 


45 


Hold-and-Modify mode (HAM) 


68 


multiple windows 


25 






multitasking 


16, 17, 21, 307 


I/O (input/output) 


315 






I/O message port 


315 


newcli command 


17 


I/O request block 


315 


Notepad 


18 


icon 13, 


113,235 






IFF transfer 


46 


OPEN command 


175 


IFF-object conversion 


56 


Output 


315 


INPUT command 


114 






Input 


315 


PALETTE command 


70, 145 


Input and output 


315 


part memory-resident 


28 


Input, modified 


105 


Path command 


22 


Interchange File Format (IFF) 


46 


PC-relative addressing 


307 


Interleaved Bitmap (ILBM) 


46 


Peripherals 


315 


Intuition 7 


,42,113 


Preferences 8 


, 114, 175, 239 


intuition.library 


38, 303 


Printer spooler 


25 


DSrVERSEVID drawing mode 


40 


printing C lists 


16 






printing commands 


11 


JAM 1 drawing mode 


40 


Program comments 


150 


JAM 2 drawing mode 


40 


Program Counter (PC) 


307 


join command 


19 


Program header checking ] 


program 187 






Protect program 


154 


kernel 


38 


Protected files 


184 


Kicks tart diskette 


9 






kill command 


175 


quick parameter 


11 


Label handling 


194 


quitting 


9 


LED shocker program 


309 


RAM disk 


10, 175 


libraries 


299 


Reading directory 


158 


LIBRARY command 


37 


rename command 


157 


Library files 


149 


Renaming files 


157 


list command 11, 150, 156 




Requester 


13, 278 


list program 
loadwb command 


150 
15 


Reserving memory 
Rubberband demo 


328 
42 


LOCATE command 


45 


rubberband 


42 


Lock 
loops 


274 


rubberbanding 


133 


295 


run command 


11,17 
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Index 


say command 


15 


WHILE/WEND 


161 


Scrolling tables 


128 


wildcard characters 


11 


scrolling 


128 


Window coordinates 


71 


search command 


20 


window 


7 


Self-modifying programs 


228 


Windows in BASIC 


63 


SetComment program 


150 


Workbench 


8,235 


SetDate command 


22 


Workbench diskette 


149 


SetDrMdO command demo 


41 


Workbench diskette in the drive 


9 


SetMap command 


23 






SetTextFont program 


97 


xec. library 


301 


shapes 


135 






shifting grids 


84 






single-drive systems 


12 






Sizing gadget 


133 






Sliders 


114 






Snapshot option 


19 






sort command 


20 






stack command 


20 






startup sequence 


14,24 






STATIC 


161 






Status lines 


139 






stopping programs 


12 






String gadget 


236 






SUB programs 45, 


114, 161 






Subdirectories 


162 






subroutines 


297 






SUB...STATIC 


161 






Tables 


121 






Text styles demo 


44 






text output 


17 






three-dimensional graphics 


79 






ToDisk program 


28 






Trackdiskdevice 


317 






trap errors 


272 






Trashcan 


237 






type command 


16 






Typestyles 


43 






User input errors 


271 






user interface 


235 






User-friendliness 


113 






Utilities 


179 






Variable lister program 


222 






variable names 


294 






variables 


293 






VARPTR command 


328 






Vector graphics 


79 






Version command 


23 
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Tricks and Tips 
Optional diskette 



For your convenience, the program listings contained in this book are 
available on an Amiga formatted floppy disk. You should order the diskette 
if you want to use the programs, but don't want to type them in from the 
listings in the book. 

All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 plus 
$2.00 ($5.00 foreign) for postage and handling. 

When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 

Abacus Software 

5370 52nd Street SE 

Grand Rapids, MI 49508 



Or for fast service, call 616/698-0330. 



Amiga 

Books 

Great introductory book! 

Amiga for Beginners 

A perfect introductory book if you're a new or prospective Amiga 
owner. Amiga for Beginners introduces you to Intuition (the 
Amiga's graphic interface), the mouse, the windows, the versatile 
CLI — this first volume in our Amiga series explains every 
practical aspect of the Amiga in plain English. Includes clear, 
step-by-step instructions for common Amiga tasks. Amiga for 
Beginners is all the info you need to get up and running with 
your Amiga 500, 1000 or 2000. Topics include: 'Unpacking and 
connecting the Amiga's components •Starting up your Amiga 
•Windows 'Files •Customizing the Workbench 'Exploring the 
Extras disk 'Taking your first steps in the AmigaBASIC 
programming language -BASIC graphics commands 'BASIC 
animation • AmigaDOS functions 'Using the CLI to perform 
"housekeeping" chores 'First Aid appendix 'Keyword appendix 
•Technical appendix •Glossary. 200 pages. (Optional program 
diskette not available). 

(630) $16.95 

"How-to" BASIC tutorial 



AmigaBASIC— 
Inside & Out 



Above and beyond any BASIC tutorial you've ever seen. This 
definitive 550-page volume will turn you into an AmigaBASIC 
expert . AmigaBASIC — Inside & Out teaches you Amiga- 
BASIC with a "hands-on," program-oriented approach, and 
explains the language in a clear, easy to understand style. Topics 
include: 'Fundamental concepts of BASIC 'Completely details 
all AmioaB ASIC commands, with syntax and parameters 
•Graphic objects and color control 'Interchange file format (IFF) 
•Voice synthesis, sound & music 'Sequential & random access 
files •Complete Reference Section includes Glossary, 
AmioaB ASIC Reference Guide, error message descriptions. 
After you've learned BASIC with AmigaBASIC— Inside & 
Out, you'U have many useful, working programs: 'Video titling 
program for high-quality OBJECT animation on your VCR tapes 
•IFF-compatible paint program (lets you load in graphics created 
on other graphic programs) 'Bar graph & pie chart program 
•Simple music synthesizer -Speech synthesis utility program 
•Full-featured database. 
550 pages. 
(610) $24.95 



Insider's secrets! 



Amiga Tricks & Tips 

A superb collection of quick hitters for all Amiga owners. 
Patterned after our best-selling Tricks & Tips books for the 
Commodore 64 & Commodore 128, Amiga Tricks & Tips 
contains dozens of programming techniques and program listings 
that anyone with an Amiga computer can use, whether you're a 
beginner or a seasoned programmer. Amiga Tricks & Tips is 
easy to understand, and lists program examples in BASIC. It's 
packed with vital Amiga info: 'Details on windows and gadgets 
•Using disk-resident fonts -Tips for printing hardcopy •Creating 
your own requesters 'Accessing Amiga libraries fromBASIC 
•Reserving important 68000 memory -CLI command overview 
•Getting the most out of the ED editor •Customizing your own 
Workbench "Controlling Intuition •AmigaDOS functions -Hints 
for effective programming 
Available May 1988. 300 pages. 

(615) $19.95 

(617) Optional program diskette $14.95 

Guide to Amiga 68000 language 

Amiga Machine Language 

The practical guide for learning how to program your Amiga in 
ultrafast machine language. Used in conjunction with our 
AssemPro Amiga software package, A miga Machine 
Language is a comprehensive introduction to 68000 assembler/ 
machine language programming. Topics include: 
• 68000 microprocessor architecture -68000 address modes and 
instruction set •Accessing the Amiga's RAM memory, operating 
system and multitasking capabilities -Details the powerful Amiga 
libraries for using AmigaDOS (input, output, disk and printer 
operations) -Details Intuition (windows, screens, requesters, 
pulldown menus) -Speech and sound facilities from machine 
language *Many useful programs listed and explained. 
Available June 1988. 225 pages. 

(660) $19.95 



(662) Optional program diskette 



$14.95 



(61 2) Optional program diskette 



$14.95 



Pj Opf/o/ia/ Program Diskettes 

contain all of the programs found in these 
books— complete, error-free and ready to run. 
Save yourself the time and and trouble of typing 
in the program listings. Each diskette: $14 SS. 



More Amiga books 
coming soon! 



Selected Abacus Products for the Amiga computers 



BeckerText 

Powerful Word Processing 
Package for the Amiga 

BeckerText Amiga is more than just a word processor. 

BeckerText Amiga gives you all of the easy-to-use 
features found in our TextPro Amiga, plus it lets you 
do a whole lot more. You can merge sophisticated IFF- 
graphics anywhere in your document You can hyphenate, 
create indexes and generate a table of contents for your 
documents, automatically. And what you see on the 
BeckerText screen is what you get when you print the 
document— real WYSIWYG formatting on your Amiga. 

But BeckerText gives you still more: it lets you 
perform calculations of numerical data within your 
documents, using flexible templates to add, subtract, 
multiply and divide up to five columns of numbers on a 
page. BeckerText can also display and print multiple 
columns of text, up to five columns per page, for 
professional-looking newsletters, presentations, reports, 
etc. Its expandable built-in spell checker eliminates those 
distracting typographical errors. 

BeckerText works with most popular dot-matrix and 
letter-quality printers, and even the latest laser printers for 
typeset-quality output. Includes comprehensive tutorial 
and manual. 

BeckerText gives you the power and flexibility that you 
need to produce the professional-quality documents that 
you demand. 

When you need more from your word processor than just 
word processing, you need BeckerText Amiga. 

Discover the power of BeckerText. Available February 
1988. 



Suggested retail price: 



$150.00 




Features 

• Select options from pulldown menus or handy shortcut 
keys 

• Fast, true WYSIWYG formatting 

• Bold, italic, underline, superscript and subscript 
characters 

• Automatic wordwrap and page numbering 

• Sophisticated tab and indent options, with centering and 
margin justification 

• Move, Copy, Delete, Search and Replace 

• Automatic hyphenation, with automatic table of 
contents and index generation 

• Write up to 999 characters per line with horizontal 
scrolling feature 

• Check spelling as you write or interactively proof 
document; add to dictionary 

• Performs calculations within your documents — 
calculate in columns with flexible templates 

• Customize 30 function keys to store often-used text 
and macro commands 

• Merge IFF graphics into documents 

• Includes BTSnap program for converting text blocks to 
IFF graphics 

• C-source mode for quick and easy C language program 
editing 

• Print up to 5 columns on a single page 

• Adapts to virtually any dot-matrix, letter-quality or laser 
printer 

• Comprehensive tutorial and manual 

• Not copy protected 



Selected Abacus Products for the Amiga computers 



DataRetrieve 

A Powerful Database Manager 
for the Amiga 

Imagine a powerful database for your Amiga: one that's 
fast, has a huge data capacity, yet is easy to work with. 

Now think DataRetrieve Amiga. It works the same 
way as your Amiga — graphic and intuitive, with no 
obscure commands. You quickly set up your data files 
upins; convenient on-screen templates called masks. Select 
commands from the pulldown menus or time-saving 
shortcut keys. Customize the masks with different text 
fonts, styles, colors, sizes and graphics. If you have any 
questions, Help screens are available at the touch of a 
button. And DataRetrieve's 128-page manual is clear 
and comprehensive. 

DataRetrieve is easy to use — but it also has 
professional features for your most demanding database 
applications. Password security for your data. 
Sophisticated indexing with variable precision. Full 
Search and Select functions. File sizes, data sets and data 
fields limited only by your memory and disk storage 
space. Customize up to 20 function keys to store macro 
commands and often-used text. For optimum access speed, 
DataRetrieve takes advantage of the Amiga's multi- 
tasking. 

You can exchange data with TextPro Amiga, 
BeckerText Amiga and other packages to easily 
produce form letters, mailing labels, index cards, 
bulletins, etc. DataRetrieve prints data reports to most 
dot-matrix & letter-quality printers. 

DataRetrieve is the perfect database for your Amiga. 
Get this proven system today with the assurance of the 
Abacus 30-day MoneyBack Guarantee. 




Suggested retail price: 



$79.95 



Features 

Select commands and options from the pulldown menus 
or shortcut keys 

Enter data into convenient screenmasks 
Enhance screen masks with- different text styles, fonts, 
colors, graphics, etc. 
Work with 8 databases concurrently 
Define different field types: text, date, time, numeric & 
selection 

Customize 20 function keys to store macro commands 
and text 

Specify up to 80 index fields for superfast access to 
your data 

Perform simple or complex data searches 
Create subsets of a larger database for even faster 
operation 

Exchange data with other packages: form letters, 
mailing lists etc. 

Produce custom printer forms: index cards, labels, 
Rolodex»cards, etc. Adapts to most dot-matrix & letter- 
quality printers 

Protect your data with passwords 
Get Help from online screens 
Not copy protected 



Max. file size 

Max. data record size 

Max. data set 

Max. no. of data fields 

Max. field size 



Limited only 
by your memory 
and disk space 



Selected Abacus Products for the Amiga computers 



AssemPro 

Machine Language Development 
System for the Amiga 

Bridge the gap between slow higher-level languages and 
ultra-fast machine language programming: AssemPro 
Amiga unlocks the full power of the AMIGA'S 68000 
processor. It's a complete developer's kit for rapidly 
developing machine language/assembler programs on your 
Amiga. AssemPro has everything you need to write 
professional-quality programs "down to the bare metal": 
editor, debugger, disassembler & reassembler. 

Yet AssemPro isn't just for the 68000 experts. 
AssemPro is easy to use. You select options from 
dropdown menus or with shortcut keys, which makes your 
program development a much simpler process. With the 
optional Abacus book Amiga Machine Language 
(see page 3), AssemPro is the perfect introduction to 
Amiga machine language development and programming. 

AssemPro also has the professional features that 
advanced programmers look for. Lots of "extras" eliminate 
the most tedious, repetitious and time-consuming m/1 
programming tasks. Like syntax error search/replace 
functions to speed program alterations and debugging. And 
you can compile to memory for lightning speed. The 
comprehensive tutorial and manual have the detailed 
information you need for fast, effective programming. 

AssemPro Amiga offers more professional features, 
speed, sheer power, and ease of operation than any 
assembler package we've seen for the money. Test drive 
your AssemPro Amiga with the security of the 
Abacus 30-day MoneyBack Guarantee. Available 
January 1988. 




Suggested retail price: 



$99.95 



Features 

• Integrated Editor, Debugger, Disassembler and 
Reassembler 

• Large operating system library 

• Runs under CLI and Workbench 

• Produces either PC-relocatable or absolute code 

• Create custom macros for nearly any parameter (of 
different types) 

• Error search and replace functions 

• Cross-reference list 

• Menu-controlled conditional and repeated assembly 

• Full 32-bit arithmetic 

• Advanced debugger with 68020 single-step emulation 

• Written completely in machine language for ultra-fast 
operation 

• Runs on any Amiga with 512K or more and Kickstart 
version 1.2 

• Not copy protected 

Machine language programming requires a solid understanding 
of the Amiga's Hardware ana operating system. We do not 
recommend this package to beginning Amiga programmers 



The Amiga is an impressive computer but 
some of its features are difficult to use. 
Amiga Tricks & Tips is for all Amiga 
owners who want to tap ail of the Amiga's 
true power. It's a great collection of 
Workbench, CLI and BASIC programming 
hints and application programs. 

Amiga Tricks & Tips explains how to 
get the most from the Command Line 
Interface {CLI). BASIC programmers will 
learn all about gadgets, windows, graphic 
fades, HAM mode, 3-D graphics and more. 
Includes a complete list of BASIC tokens 
and multitasking input and a fast and easy 
print routine. If you're an advanced 
programmer, you'll discover the hidden 
powers of your Amiga. Learn how to 
allocate memory, trap errors, use Amiga 
fonts, mix machine language with BASIC 
and much more. 

Amiga Tricks & Tips topics include: 

• drawing modes • changing typestyles 

• kernal commands • 3-D graphics • fading 
graphics • rubberbanding • IFF transfers 

• BASIC benchmarks • disk drive 
operations ■ disk commands • machine 
language calls • Icons • Trapping errors 



of software tools 

and programming hints 



Many hints and application 
programs presented and explained: 

• Changing typestyles 

• Text input and output 

• BASIC benchmarks (speed tests) 

• Fast vector graphics 

• Multitasking INPUT 

• File analyzer 

• Self-modifying programs 

• Directory access 

■ Cross-reference list 

• REM Killer 

• Reading and setting Preferences 

Amiga Tricks & Tips is packed with 
dozens of hints and applications for all 

Amiga owners. 

Optional Program Diskette available: 

Contains every program listed in the book- 
complete, error-free and ready to run! Saves 
you hours of typing in program listings. 
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